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1.0 INTRODUCTION 

1.1 ABSTRACT 

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH 
USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE RM80 DISK 
SUBSYSTEM. IN PARTICULAR. THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
DISK DRIVE, INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
OPERATIONS; 

TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 

TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM, INCLUDING 
MASS8US CONTROLLER, NASSBUS ADAPTER AND THE DISK DRIVE. 


THE 


THE TEST IS COMPRISED OF 4 PARTS, WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE, STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
READ AND WRITE CHECK OPERATIONS USING DATA; PART 4 TESTS MECHANICAL 
POSITIONING OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE RM80 DISK 
DRIVE. 


1.2 UNIT UNDER TEST 

THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH70 MASSBUS CONTROLLER .THE RM80 MASSBUS ADAPTER , 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK IS REQUIRED FOR 
TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK DRIVE. 


2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION. ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RH80 SUBSYSTEM 
FUNCTIONAL TEST: 

PDP-11 PROCESSOR 
20K MEMORY 

KW11-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH70 CONTROLLER 

i TO 8 RM80 DISK DRIVES 


2.2 MEDIA REQUIREMENTS 
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EACH UNIT BEING TESTED MUST BE LOADED WITH A DISK BEFORE TESTING 
BEGINS ON THAT UNIT. THE DRIVE MUST HAVE A FORMATTED DISK AND CONTAIN 
A READABLE COPY OF THE MFG(DEC144>. USR(DEC144) AND SSF BAD SECTOR 
FILES. 

NOTE: TO ENSURE THAT ALL CUSTOMER WA IS PRESERVED ON THE DISK. ALL 
DATA TRANSFERS WILL BE PERFORMED ON THE FE CYLINDERS ONLY. 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
RM80 DISKLESS TEST. PART 1 8 2 
RM80 FUNCTIONAL TEST, PART 1 g 2 


3.0 OPERATING PROCEDURE 

3.1 LOADING 

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
•XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 

CU1 C iiAl T |tt| Ffiono 

SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

SW13 INHIBIT ERROR TYPEOUTS 

SW12 UNUSED 

SW11 INHIBIT TEST ITERATIONS 

SW10 BELL ON ERROR 

SW09 LOOP ON ERROR 

SW08 LOOP ON TEST IN SW07-00 

THE LOW ORDER 8 SWITCHES (SW07-SW00), ARE USED IN CONJUNCTION WITH 
SW08 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
LOOP ON. 


3.3 STARTING 

THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. 
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3.4 HALTING 

THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 

NOTE: IF THE PROGRAM IS HALTED BY ANY OTHER MEANS. BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK. THIS OF COURSE. DEPENDS 
ON WHICH TEST WAS BEING PERFORMED AT THE TIME THE PROGRAM 
WAS HALTED. ALSO. THIS ONLY APPLIES TO A NORMAL (ERROR FREE) 
OPERATION OF THE PROGRAM. 


3.5 RESTARTING 

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 

4.1 PROGRAM ID 

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. ALSO. A WARNING MESSAGE IS TYPED. 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 

WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE. IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 
MESSAGE. (SEE SECTION 4.1) 

THE FIRST QUESTION TYPED OUT IS: •'TYPE HELP TEXT (L) N ?". 

IF THE OPERATOR RESPONDS WITH A , *Y M , THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS. ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A *N M AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP’S. 

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204. 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 

EXAMPLE 1 

RMCS1 =176700 <CR> ;N0 CHANGE IN ADDRESS 

RMVEC-000254 <CR> ;N0 CHANGE IN ADDRESS 

EXAMPLE 2 

RMCS1=1 76700 177200<CR> .-CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> .’CHANGE VECTOR ADDRESS TO 260 
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ON THE INITIAL START, THE NEXT QUESTION TYPED IS. 'TYPE "A" TO 
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN'. THEN. ’DRIVE (S) : ' IS TYPED AND WAITS FOR THE 
OPERATOR TO TYPE AN ”A" TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUMBER (S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
"CARRIAGE RETURN”. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE 'DRIVE CS):' PROMPT IS TYPED. 

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 

'UNIT STATUS: 

0 ONLINE RM80 

1 LOAD DEVICE 

2 OFFLINE RM80 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM80 

6 NOT PRESENT 

7 NOT PRESENT' 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 

1 - 7 WILL NOT BE TESTED. 

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
STATUS OF THE DRIVE: 

'DRIVE(S) TO BE TESTED, O' 

IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 

'DRIVE(S) TO BE TESTED, NONE' 

THE PROGRAM WILL THEN. EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO 8E TESTED: 

•DRIVE O' 

AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 

OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, 0=0CTAL AND 
L=LETTER. 


4.3 PROGRESS REPORTS 
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AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST GUE. THE END OF PASS REPORT IS AS FOLLOWS. 

•END OF PASS 1* 

THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 

•TOTAL ERRORS SINCE LAST REPORT O' 


4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED. THE DRIVE TYPE. THE TEST NUMBER. THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 

DRV# 0 - RM80, TEST# 14. ERR# 326. PC=016654 
MASSBUS DATA BUS PARITY ERROR 'MDPE" (RMCS2, BIT 8) DETECTED 
DURING WRITE COMMAND 
EXPECTD 
040300 
RMCS1 
144252 
RMWC 
177403 
RMMR1 
000010 


RECEVD 

040700 

RMCS2 

RMDS 

RMER1 

RMER2 

RMAS 


040700 

010700 

000000 

000000 

000000 

RMEC2 

RMBA 

RMDA 

RMOF 

RMDC 

RMEC1 

104604 

000002 

010000 

000000 

004066 

000000 

RMMR2 

RMDT 

RMSN 




011777 

024026 

177777 





4.7 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAXES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 50 SECONDS. 
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5.0 ENVIRONMENTAL SUPPORT 

5.1 PROCESSOR COMPATIBILITY 

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON A PDP-11/70 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET. AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 

THE RM80 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
DUAL PORT LOGIC IN THE RM80 ADAPTER BUT IS EXECUTABLE ON RM80 
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RM80 SUS8YSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUSBYSTEM 
FUNCTIONAL TEST. 


5.5 ACT11 , APT11 COMPATIBILITY 

THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER. THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 
MODE. 


5.6 XXDP COMPATIBILITY 

THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES. AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM80 IS THE XXDP LOADING DEVICE. 


5.7 OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 
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6.0 TEST DESCRIPTION 


TEST 1 CONTROLLER ACCESS TEST 
PURPOSE: 

TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM80 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $8ASE. 

PROCEDURE: 

THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
USING THE $BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 

IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE S6ASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


TEST 2-22 WRITE/READ DATA TESTS 
PURPOSE: 

TO TEST WRITE DATA AND READ DATA FUNCTIONALITY OF THE RM80 
SUBSYSTEM USING A SET OF VARIABLES WHICH INCLUDE WORD COUNT, HEAD 
MOTION, HEAD SWITCHING AND ERROR CONDITIONS. 

PROCEDURE: 

ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE, THE 
GENERAL PROCEDURE OF EACH TEST IS THE SAME. THE DRIVE IS 
INITIALIZED AND RECALIBRATED IF PIP" OR ••SKI" ARE ACTIVE SO THAT 
THERE ARE NO ERRORS WHEN A TEST BEGINS. THEN, THE TEST FORMATS 
THE SECTOR BEING USED, WHICH MAY VARY FROM THE PROGRAM LISTING, 
BECAUSE SECTORS ARE SUBSTITUTED DURING RUN TIME IF THE SELECTED 
SECTOR IS LISTED IN THE BAD BLOCK TABLE OF THE LAST TRACK. 
FOLLOWING THAT, THE TEST PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR 
THE CONDITIONS OF THE TEST. REGISTERS ARE PRESET AND THE WRITE 
DATA COMMAND IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE, 
THE TEST STORES ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY 
ERRORS WHICH PRECLUDE OTHER STATUS CHECKS. IF THERE ARE NO 
PRIMARY ERRORS, THE TEST VERIFIES THE RESULTS OF THE WRITE 
COMMAND AND THEN CHECKS FOR SECONDARY ERRORS. LOOP ADDRESSES ARE 
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MODIFIED FOLLOWING THE SUCCESSFUL COMPLETION OF THE WRITE COMMAND 
IN ORDER TO SHORTEN EXECUTION TIMES AND ENHANCE SCOPING LOOPS, 
THEN THE PROGRAM EXECUTES THE READ DATA PORTION OF THE TEST, 
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 

NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE PROGRAM 
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 


TEST 2 WRITE, READ ZEROS TEST 

THE TEST WRITES AND READS AN ALL ZEROS DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE 6ATE THOUGHOUT THE WRITE PROCESS. 


TEST 3 WRITE, WRITE CHECK ZEROS TEST 

THE TEST WRITES AND WRITE CHECKS AN ALL ZEROS DATA FIELD, 
VERIFYING THAT THERE ARE NO ERRORS. 


TEST 4 WRITE, WRITE CHECK ZEROS W/ WCE ERROR TEST 

THE TEST WRITES AN ALL ZEROS DATA FIELD, THEN COMPLEMENTS 
EACH BIT IN THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK 
COMMAND IS EXECUTED AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 


TEST 5 WRITE, READ ONES TEST 

THE TEST WRITES AND READS AN ALL ONES DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


TEST 6 WRITE, WRITE CHECK ONES TEST 

THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD. 
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TEST 7 WRITE, WRITE CHECK ONES W/ WCE ERROR TEST 

THE TEST WRITES AN ALL ONES DATA FIELD, THEN PERFORMS A 
WRITE CHECK DATA COMMAND AFTER COMPLEMENTING EACH BIT IN THE LAST 
WORD OF THE WRITE BUFFER. THE TEST VERIFIES THAT THE CORRECT 
WRITE CHECK ER"0° IS DETECTED. 


TEST 10 WRITE. WRITE CHECK MULTIPLE SECTORS TEST 

THE TEST SEEKS TO CYLINDER 559. TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE WRITE DATA COMMAND FOLLOWS, 
WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME SECTORS 
ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. THE TEST IS 
REPEATED FOR 16 BIT FORMAT WITH SSEI BIT SET. 


TEST 11 WRITE, READ W/ IMPLIED SEEK TEST 

THIS TEST SEEKS TO THE FIRST CYLINDER PRIOR TO WRITING DATA 
ON CYLINDER 559., TRACK 2 AND SECTOR 0. THE EXPLICIT SEEK INSURES 
THAT THERE WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF 
THE WRITE COMMAND. THE SAME OPERATION, INCLUDING THE EXPLICIT 
SEEK IS REPEATED FOR READ DATA. 


TEST 12 READ, WRITE CHECK W/ HEAD SWITCHING TEST 

THE TEST SEEKS TO CYLINDER 559. TO INSURE THERE IS NO HEAD 
MOTION DURING DATA TRANSFER. THE READ DATA COMMAND STARTS WITH 
CYLINDER 559.. TRACK 2, SECTOR 30. THE WORD COUNT IS EQUAL TO 
MULTIPLE SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH FROM TRACK 
2 TO TRACK 3 AFTER THE FIRST SECTOR IS WRITTEN. THE SAME SECTORS 
ARE VERIFIED WITH A WRITE CHECK DATA COMMAND, USING THE SW1E WORD 
COUNT AND STARTING SECTOR. IF THE 'SSE' BIT IS SET AFTER 
EXECUTING A DATA COMMAND. THE 16 BIT MODE WILL BE TERMINATED AND 
THE TEST IS REPEATED FOR 16 BIT FORMAT WITH THE SSEI BIT SET, 
WHERE SECTOR 31. IS THE LAST SECTOR. IF NO 'SSE* WAS SET. THEN 
BOTH FORMAT MODES WILL BE EXECUTED. 


TEST 13 READ. WRITE CHECK W/ MID-TRANSFER SEEK TEST 
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THIS TEST READS MULTIPLE SECTORS STARTIN6 WITH CYLINDER 
559., LAST TRACK AND SECTOR 30.. CAUSING A MID-TRANSFER SEEK 
AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN. THE SAME 
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. IF THE 
'SSE* BIT IS SET AFTER EXECUTING A DATA COMMAND. THE 16 BIT MODE 
WILL BE TERMINATED AND THE TEST IS REPEATED FOR 16 BIT FORMAT 
WITH THE SSEI BIT SET. WHERE SECTOR 31. IS THE LAST SECTOR. IF NO 
'SSE' WAS SET, THEN BOTH FORMAT MODES WILL BE EXECUTED. 


TEST 14 WRITE, READ W/ HCE ERROR TEST 

A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN THE 
TEST WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE 
CORRECT ERROR IS DETECTED. EACH BIT POSITION OF BOTH HEADER 
WORDS IS TESTED IN THIS MANNER. 


TEST 15 WRITE. READ W/ HCI 8 SSEI TEST 

A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN 
AND READ WITH HEADER COMPARE AND SKIP SECTOR ERROR INHIBITED. 
THE TEST VERIFIES THAT NO ERROR IS DETECTED. 


TEST 16 WRITE, READ W/ IVC ERROR TEST 

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A WRITE DATA COMMAND AND VERIFIES 
THAT INVALID COMMAND STATUS SETS. THE TEST IS R r ATED FOR READ 
DATA COMMAND. 


TEST 17 WRITE, READ W/ ABORT TEST 

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES A 
WRITE DATA COMMAND VERIFYING THAT *PIP M REMAINS INACTIVE. THE 
SAME PROCEDURE IS USED FOR READ DATA COMMAND. 


TEST 20 WRITE. READ EARLY PEAK SHIFT TEST 
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N 1 


SEQ 0013 


571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
60, 
60 

604 

605 

606 

607 

608 
609 


THIS TEST WRITES AND READS A SINGLE SECTOR USING A DATA 
PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT. 


TEST 21 WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT TEST 

THE TEST WRITES AND READS WITH EACH TRACK USING A MIX OF 
EARLY, NORMAL AND LATE PEAK SHIFTS. 


TEST 22 READ MULTIPLE SECTORS IN OFFSET MODE TEST 

THE TEST EXECUTES READ DATA AND WRITE CHECK 
OFFSET MODE IN BOTH OFFSET DIRECTIONS WITH THE 
TWO SECTORS AT A TIME. 


DATA COMMANDS IN 
TRANSFER SIZE OF 


TEST 23 FORMAT FE CYLINDERS 

THIS TEST FORMATS BOTH FE CYLINDERS TO RE-ESTABLISH THE 
CORRECT FORMAT ON THE SECTORS THAT WERE WRITTEN UWN BY PREVIOUS 
TESTS. THE TEST IS DONE IN 16 B1 i FORMAT WITH THE SSEI BIT SET TO 
ALLOW ALL 32 SECTORS ON EACH TRACK TO BE FORMATTED. 


\ 
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.£0 OOK 


1 

487 

488 


489 


490 


491 

492 


001100 

104000 

000004 


000011 

000012 

000015 

000200 

177776 

177776 

177774 

177772 

177570 

177570 


000000 

000001 

000002 

000003 


.-♦LAST REVISION 08-OCT-81 

TITLE CZRNFAO RM80 FCTNL PT3 
-COPYRIGHT (C) 1982 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SPGS. . CO. 80919 

PROGRAM BY MIKE LEAVITT 

,HIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZ0AC-C5). 18 -MAR- 81 

SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


USE 

15 

HALT ON 

ERROR 

14 

LOOP ON 

TEST 

13 

INHIBIT 

ERROR TVPEOUTS 

12 

UNUSED 


11 

INHIBIT 

ITERATIONS 

10 

BELL ON 

ERROR 

9 

LOOP ON 

ERROR 

8 

LOOP ON 

TEST IN SWR<7:0> 

7 

TNI 28 


6 

TN64 


5 

TN32 


4 

TN16 


3 

TN8 


2 

TN4 


1 

TN2 


0 

TNI 



.SBTTL BASIC DEFINITIONS 

.•♦INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 

ERROR = EMT° ; .-BASIC DEFINITION OF ERROR CALL 

SCOPE = IOT ; .-BASIC DEFINITION OF SCOPE CALL 

♦MISCELLANEOUS DEFINITIONS 


HT = 11 

LF = 12 

CR = 15 

CRLF = 200 

PS = 177776 

PSW=PS 

STKLMT = 177774 

PIRQ = 177772 

DSWR = 177570 

DDISP = 177570 

.-♦GENERAL PURPOSE REGISTER DEFINITIONS 


CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 


RO 

R1 

R2 

R3 


= XO 
= XI 
= X2 
= X3 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 


C 2 


SEQ 0015 
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000004 

000005 

000006 

000007 

000006 

000007 


000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 


100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 


100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 


R4 

= X4 

.’.•GENERAL REGISTER 

R5 

= 15 

;; GENERAL REGISTER 

R6 

= Z6 

;; GENERAL REGISTER 

R7 

= X? 

.-.-GENERAL REGISTER 

SP 

= Z6 

;; STACK POINTER 

PC 

= 17 

;; PROGRAM COUNTER 


.••PRIORITY LEVEL DEFINITIONS 


PRO 

0R1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 


0 
40 
100 
140 
200 
240 
300 
340 


PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 


.••"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15 = 100000 

SW14 = 40000 

SW13 = 20000 

SW12 = 10000 

SW11 = 4000 

SW10 = 2000 

SW09 = 1000 

SW08 = 400 

SW07 = 200 

SW06 = 100 

SW05 = 40 

SW04 * 20 

SW03 = 10 

SW02 * 4 

SW01 = 2 

SWOO = 1 

SW9=SW09 

SW8=SW06 

SW7=SW07 

SW6-SW06 

SW5-SW05 

SW4=SW04 

SW3-SW03 

SW2-SW02 

SW1=SW01 

SW0=SW00 

.-•DATA BIT DEFINITIONS (BITOO TO BIT15) 


BIT15 

BIT14 

BIT13 

B1T12 

BIT11 

BIT10 

BIT09 

BIT08 

BIT07 

BIT06 

BIT05 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 
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D 


2 


SEQ 0016 




BIT04 

= 20 



T®. * ‘ 

0ITO3 

= 10 




BIT02 

= 4 



A Ji 

BIT01 

= 2 



• 1 1 1 iMvrOfcif-M 

BIT00 

= 1 




BIT9=BIT09 




BIT8=BIT08 




BIT7=8IT07 



000100 

BIT6=BIT06 



000040 

BIT5=aiT05 



000020 

8IT4=BIT04 



000010 

BIT3=8IT03 



000004 

BIT2=BIT02 




BI T 1 =BI T01 



000001 

BIT0=BIT00 




.-•BASIC 

"CPU" TRAP VECTOR ADDRESSES 



ERRVEC 

= 4 

;TIME OUT AND OTHER ERRORS 


00001 c 

RESVEC 

= 10 

RESERVED AND ILLEGAL INSTRUCTIONS 


000014 

TBITVEC 

= 14 

;*T* BIT 



TRTVEC 

= 14 

; TRACE TRAP 


000014 

BPTVEC 

= 14 

.•BREAKPOINT TRAP (BPT) 



IOTVEC 

= 20 

.•INPUT/OUTPUT TRAP (IOT) **SC0PE** 


/■■'IwPHi 

PWRVEC 

= 24 

; POWER FAIL 



EMTVEC 

= 30 

.-EMULATOR TRAP (EMT) **ERR0R** 



TRAPVEC 

= 34 

;"TRAP” TRAP 


■vIvvi’M’ -■ ■; -■ 

TKVEC 

= 60 

;TTY KEYBOARD VECTOR 



rPVEC 

= 64 

;TTY PRINTER VECTOR 


000240 

PIRQVEC 

= 240 

.•PROGRAM INTERRUPT REQUEST VECTOR 

493 





494 


.S8TTL 

RM80 REGISTER BIT DEFINITIONS 

495 





496 


;*RMCS1 

CONTROL STATUS REGISTER 

497 





498 

sssai ii> iii i 

DVA 

= BIT11 

.•DEVICE AVAILABLE-READ ONLY 

499 

■ I' V V 1 

F4 

= BIT05 

.•FUNCTION CODE 

500 

PsfiB* ill ir. 

F3 

= BIT04 

.•FUNCTION CODE 

501 


F2 

= BIT03 

.•FUNCTION CODE 

502 


FI 

= BIT02 

.•FUNCTION CODE 

503 


F0 

= BIT01 

.•FUNCTION CODE 

504 

______ 

GO 

= BIT00 

;G0 BIT 

505 

CA/ 

000077 

FNCMSK 

= 000077 

.-FUNCTION CODE MASK 

)UO 

5 07 


.•FUNCTION CODES (BITS 01-05 OF RMCS1A 

508 

PPW* 

NOP 


;N0P COMMAND 

509 


ILF02 


.•ILLEGAL COMMAND 

510 

tIvI'S^PINp 

SEEK 


.-SEEK COMMAND 

511 

-'pi* vMtB ■ Wpi 

RE C AL 


.-RECALIBRATE COMMAND 

512 


DRVCLR 


; DRIVE CLEAR COMMAND 

513 

.^9< to 

RLEASE 

$ B v! vi 

.•RELEASE COMMAND 

514 

mW '•[•jik 

OFFSET 

F a* * VfLWfflm 

.-OFFSET COMMAND 

515 


RTC 

EfMTM'n’BllBBH 

.•RETURN TO CENTERLINE COMMAND 

516 

#mhi '{Yn'wpHMpi 

RIP 


.-READ IN PRESET COMMAND 

517 

isiw* wWI-- 1 

PAKACK 

a ^‘i‘i‘i‘rr»T a pnln 

.-PACK ACKNOWLEDGE COMMAND 

518 


PACACK 

= PAKACK 


519 


ILF24 

= 000024 

.•ILLEGAL COMMAND 

520 

000026 

ILF 26 

= 000026 

.•ILLEGAL COMMAND 
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SEQ 0017 


000030 

000030 

000032 

000034 

000036 

000040 

000042 

000044 

000046 

000050 

000052 

000054 

000056 

000060 

000062 

000064 

000066 

00C070 

000072 

000074 

000076 


004000 

002000 

001000 

000400 


000020 

000010 

000004 

000002 

000001 


177400 

000377 


100000 

040000 

020000 

010000 

004000 

002000 


• A 

• 

A 


1 

A 

• 


!A 

A 

A 


A 

A 

A 


i A 

A 

A 


• A 

• 

A 


• A 

• 

• 


ir 

• 

M 

t 

• 

J 


it 

1 

• 


it 

• 

• 


•A 

• 

• 


•A 

Sa 

I 

H 

A 

• 

H 

• 


SA 

A 

A 


A A 

• 

• 


it 

• 

i 



• 

A 


• 3 

• 

i 


ti 

• 3 

• 

• 

• 

- 

A 




SEARCH 

ILF 30 

ILF32 

ILF 34 

ILF36 

ILF40 

ILF42 

I LF 44 

ILF46 

UCD 

UCH 

I LF 54 

ILF56 

UD 

UH 

ILF 64 
ILF 66 
RD 
RH 

ILF 74 
ILF 76 


;*RMDA DISK ADDRESS REGISTER 

.'TRACK ADDRESS DEFINITIONS 
TA8 = 81 Til 

TA4 = BIT10 

TA2 = BIT09 

TA1 = BIT08 

.'SECTOR ADDRESS DEFINITIONS 

SA16 = BIT04 

SA8 = BIT03 

SA4 = BIT02 

SA2 = BIT01 

SA1 = BITOO 

.‘TRACK ft SECTOR MASKS 
TADMSK = 177400 

SADMSK = 000377 

;*RMDS DRIVE STATUS REGISTER 

ATA = BIT1 5 

ERR = BIT14 

PIP = BIT13 

MOL = BIT1 2 

URL » BIT11 

LBT = BIT10 

PGM > BIT09 

DPR = BIT08 

DRY = BIT07 

VV = BIT06 

OM = BITOO 


SEARCH COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE CHECK DATA COMMAND 

WRITE CHECK HEADER AND DATA 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

WRITE DATA COMMAND 

WRITE HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

READ DATA COMMAND 

READ HEADER AND DATA COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 


TRACK ADDRESS 8. 
TRACK ADDRESS 4 
TRACK ADDRESS 2 
TRACK ADDRESS 1 


SECTOR ADDRESS 16. 
SECTOR ADDRESS 8. 
SECTOR ADDRESS 4 
SECTOR ADDRESS 2 
SECTCr. ADDRESS 1 


.•TRACK ADDRESS MASK 
.SECTOR ADDRESS MASK 


ATTENTION ACTIVE 
COMPOSITE ERROR 
POSITIONING IN PROGRESS 
MEDIUM ON LINE 
WRITE LOCK 

LAST BLOCK TRANSFERRED 
PROGRAMMABLE 
DRIVE PRESENT 
DRIVE READY 
VOLUME VALID 
OFFSET MODE ACTIVE 


; *RMER1 ERROR REGISTER #1 



f 2 


SEQ 0018 
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573 

100000 

DCK 

= BIT15 


DATA CHECK ERROR 

574 

040000 

UNS 

= BIT14 


DRIVE UNSAFE 

575 


0PI 

= BIT13 


OPERATION INCOMPLETE 

576 


DTE 

= BIT12 


DRIVE TIMING ERROR 

577 


WLE 

= BIT11 


WRITE LOCK ERROR 

578 


IAE 

= BIT10 


INVALID ADDRESS ERROR 

579 


A0E 

= BIT09 


ADDRESS OVERFLOW ERROR 

580 

000400 

HCRC 

= BIT08 


HEADER CRC ERROR 

581 


HCE 

= BIT07 


HEADER COMPARE ERROR 

582 

000100 

ECH 

= BIT06 


ECC ’HARD" ERROR 

583 


WCF 

= BIT05 


WRITE CLOCK FAILURE 

584 


FER 

= BIT04 


FORMAT ERROR 

585 

MM'Kw 

PA,: 

= BIT03 


PARITY ERROR 

586 


RMR 

= BIT02 


REGISTER MODIFICATION REFUSED 

587 

•Till 

ILR 

= BIT01 


ILLEGAL REGISTER 

588 

000001 

ILF 

= BITOO 


ILLEGAL FUNCTION 

589 

590 

115760 

NDTMSK 

= DCK.'DTE.'WLE !A0E 

HCRC! HCE. 'ECH! WCF! FER 

591 


NDTMSK" IS USED TO MASK 

ERROR REGISTER 1 DURING NON - DATA 

592 


; COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 

593 

594 


;*RMAS 

ATTENTION SUMMARY 

REGISTER 

595 

596 

coy 

000377 

ATNMSK 

= 377 


•MASK FOR ATTENTION BITS 

59 f 

598 


;*RMLA 

LOOK AHEAD REGISTER 


599 

600 

002000 

SC4 

= BIT10 


SECTOR COUNT = 16 

601 

001000 

SC3 

= BIT09 


SECTOR COUNT = 8 

60 2 

000400 

SC2 

= BIT08 


SECTOR COUNT = 4 

603 

000200 

SCI 

= BIT07 


SECTOR COUNT = 2 

604 

/AC 

000100 

SCO 

= BJT06 


SECTOR COUNT = 1 

605 

606 

003700 

SCTMSK 

= 003700 


SECTOR COUNT MASK 

oOr 

608 


;*RMMR1 

MAINTENANCE REGISTER #1 


609 






610 


; WRITE 

ONLY BITS 



611 

nsii| h iTiTi .pyffirifp 

DBCK 

= BIT15 


DEBUG CLOCK 

612 

WPM»P iTili 

DBEN 

sr BIT14 


DEBUG CLOCK ENABLE 

613 

WSBmiK r 1 

DEBL 

= BIT13 


DIAGNOSTIC END OF BLOCK 

614 


DTO 

= BIT12 


DIAGNOSTIC TIMEOUT 

615 


MCLK 

= BIT11 


MAINTENANCE CLOCK 

616 

002000 

MRD 

= BIT10 


READ DATA 

617 

001000 

MUR 

= BIT09 


UNIT READY 

618 

SI 1 MfeiSIlfe 

HOC 

= BJT08 


ON CYLINDER 

619 

000200 

MSER 

= BIT07 


SEEK ERROR 

620 

000100 

MDF 

= BIT06 


DRIVE FAULT 

621 

000040 

MS 

= BIT05 


SECTOR PULSE 

622 

000010 

MWP 

= BIT03 


WRITE PROTECT 

623 


MI 

= BIT02 


INDEX PULSE 

624 

000002 

NSC 

= BIT01 


SECTOR COMPARE 

625 

000001 

DMD 

= BITOO 


DIAGNOSTIC MODE 

626 






627 


.‘READ ONLY BITS 



628 

100000 

OCC 

= ani5 


; OCCUPIED 

629 

040000 

RG 

= BIT14 


;RUN AND GO 


C l 


seo 0019 
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630 

631 
C32 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 
678 


020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 


100000 

040000 

020000 

004000 

020026 

024026 


010000 

004000 

002000 

001000 

000200 


001777 


EBL 

REX 

ESRC 

PLFS 

ECRC 

PDA 

PHA 

CONT 

WC 

EECC 

MUD 

LS 

LST 

DMD 


BIT13 

BIT12 

BIT11 

BIT10 

BIT09 

BIT08 

BIT07 

BIT06 

BIT05 

BIT04 

BIT03 

BIT02 

BIT01 

B1T00 


;*RMDT DRIVE TYPE REGISTER 


NSA 

TAP 

MOH 

DRQ 


= BIT15 
= BIT14 
= BIT13 
= BIT11 


SNGPRT = 020026 
DULPRT = 024026 

; *RMOF OFFSET REGISTER 


FMT16 

ECI 

HC1 

SSEI 

OFD 


BIT12 

BIT11 

BIT10 

8IT09 

BIT07 


;*RMDC DESIRED CYLINDER ADDRESS 

CYLMSK = 001777 

;*RMMR2 MAINTENANCE REGISTER #2 



.READ 

ONLY BITS 


RQA 

= BIT15 


ROB 

= 8IT14 


TAG 

= B1T13 

* 1 1 iii iPpl™p 

1ST 

= BIT12 


CC 

= BIT11 


CH 

= BIT10 



= BIT09 

i iji 7i 


= BIT08 



= BIT07 

• it* 


= B1T06 



= BIT05 



= B2T04 

fiti 


= BIT03 

• Ml 


= 8IT02 



= BIT01 


B800 

= BITOO 


END OF BLOCK 

EXCEPTION 

ENABLE SEARCH 

LOOKING FOR SYNC 

ENABLE CRC OUT 

DATA AREA 

HEADER AREA 

CONTINUE 

WORD CLOCK 

ENABLE ECC OUT 

WRITE DATA BIT 

LAST SECTOR 

LAST SECTOR AND TRACK 

DIAGNOSTIC MODE 


NOT SECTOR ADDRESSED = 0 
TAPE DRIVE = 0 
MOVING HEAD = 1 
DRIVE REQUEST REQUIRED 

; SINGLE PORT DRIVE TYPE 
,-DUAL PORT DRIVE TYPE 


16 BIT WORD FORMAT 
ECC INHIBIT 

HEADER COMPARE INHIBIT 
SKIP SECTOR ERROR INHIBIT 
OFFSET FORWARD 

REGISTER 

.-MASK FOR CYLINDER ADDRESS 


PORT A REQUEST 
PORT B REQUEST 
TAG CONTROL 

COMMAND SEQUENCE TEST BIT 

CONTROL OR CYLINDER TAG 

CONTROL OR HEAD TAG 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 

TAG BUS 


679 
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SEQ 0020 


680 


; *RMER2 

ERROR REGISTER 2 


6o I 

682 

100000 

BSE 

= BIT15 

BAD SECTOR ERROR 

683 

040000 

SKI 

= BIT14 

SEEK INCOMPLETE 

684 


OPE 

= BIT13 

OPERATOR PLUG ERROR 

685 

■Bun ijwBxs&u 

IVC 

= BIT12 

INVALID COMMAND ERROR 

686 


LSC 

= BIT11 

LOSS OF SYSTEM CLOCK 

687 


LBC 

= BIT10 

LOSS OF BIT CLOCK 

688 


DVC 

= BIT07 

DEVICE CHECK 

689 

smm*m 

SSE 

= BIT05 

SKIP SECTOR ERROR 

690 

000010 

DPE 

= BIT03 

DATA PARITY ERROR 

691 

692 


.SBTTL 

PROGRAM MNEMONICS 


693 

694 

100000 

MSE 

= BIT15 

MANUFACTURING DETECTED SECTOR f 

695 

040000 

USE 

= BIT14 

USER DETECTED SECTOR ERROR 

696 

020000 

SSF 

= BIT13 

SKIP SECTOR FAILURE 

697 

698 


.SBTTL 

RM80 REGISTER INDEX VALUES 

0?9 

700 

OOOObO 

RMCS1 

= 00 

CONTROL STATUS REGISTER Ml 

701 


RMDA 

= 06 

DISK ADDRESS REGISTER 

702 

000012 

RMDS 

= 12 

DRIVE STATUS REGISTER 

703 

000014 

RMER1 

= 14 

ERROR REGISTER Ml 

704 

000016 

RMAS 

= 16 

ATTENTION SUMMARY REGISTER 

705 


RMLA 

= 20 

LOOK AHEAD REGISTER 

706 


RMMR1 

= 24 

MAINTENANCE REGISTER 

707 

«M». i M x 

RMDT 

= 26 

DRIVE TYPE REGISTER 

708 


RMSN 

= 30 

SERIAL NUMBER REGISTER 

709 


RM0F 

= 32 

OFFSET REGISTER 

710 

W 'M' ‘ M’ ' *■' 

RMDC 

= 34 

DESIRED CYLINDER REGISTER 

711 


RMHR 

= 36 

HOLDING REGISTER 

712 

aw •!•!*£ 

RHFit2 

= 40 

MAINTENANCE REGISTER M2 

713 

000042 

RMER2 

= 42 

ERROR REGISTER M2 

714 


RMEC1 

= 44 

ECC POSITION REGISTER 

715 


RMEC2 

= 46 

ECC PATTERN REGISTER 

718 

000050 

1LRG50 

- 50 

ILLEGAL REGISTER 50 



ILRG52 

= 52 

ILLEGAL RE6ISTER 52 


000054 

ILRG54 

= 54 

ILLEGAL RE6ISTER 54 


000056 

ILRG56 

= 56 

ILLEGAL REGISTER 56 



ILRG60 

= 60 

ILLEGAL REGISTER 60 


- * A- • ^ 

ILRG62 

= 62 

ILLEGAL REGISTER 62 


000064 

ILRG64 

= 64 

ILLEGAL REGISTER 64 



ILPG66 

= 66 

ILLEGAL REGISTER 66 


000070 

ILRG70 

= 70 

ILLEGAL REGISTER 70 


000072 

ILRG72 

= 72 

ILLEGAL REGISTER 72 


000074 

ILRG74 

= 74 

ILLEGAL REGISTER 74 

71 ft 

000076 

ILRG76 

r 76 

ILLEGAL REGISTER 76 

719 

720 

000077 

IDXMSK 

= 77 

;MASK FOR REGISTER INDEX NUMBER 

721 

722 


.SBTTL 

RH CONTROLLER REGISTER BIT DEFINITIONS 

723 

724 

•W'lC 


;*RMCS1 

CONTROL STATUS REGISTER #1 

rc5 

726 

100000 

SC 

= BIT15 

.‘SPECIAL CONDITION-READ ONLY 

727 

040000 

TRE 

= BIT14 

.•TRANSFER ERROR 



SEQ 0021 
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RH CONTROLLER 

REGISTER 

728 

020000 

729 

002000 

730 

001000 

731 

000400 

732 

000200 

733 

000100 

734 


735 


736 


737 

W* 'IS' ' 

738 

■ I 

739 


740 


741 


742 

Hi • 'JM • 

743 

001000 

744 

000400 

745 


746 


747 

Kt W' 

748 


749 


752 

Hiii ijifi > 

Hi]i •J*]i 

753 


754 


755 


756 

000007 

757 


758 


759 


760 

EHTijiTiTri 

761 

Hitfiii i 

762 


763 


764 

H* *r S ' 1 

765 

Hi ir ill i 

766 

Hi ill |i i 

767 


768 


769 


770 

.'.'.i 

771 


772 


773 


774 


775 


776 


777 

000010 

778 

000022 

779 

000050 

780 

000052 

781 


782 

176700 

783 

120254 

784 



MCPE 

= BIT13 

.-MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 

PSEL 

= BIT10 

.-PORT B SELECT 

A17 

= BIT09 

.-ADDRESS EXTENSION 

A16 

= BIT08 

.ADDRESS EXTENSION 

RDY 

= BIT07 

.-READY-READ ONLY 

IE 

= BIT06 

.■INTERRUPT ENABLE 


;*RMCS2 RH CONTROL STATUS REGISTER 02 


DLT 

UCE 

UPE 

NED 

NEM 

PGE 

MXF 

MOPE 

OR 

IR 

CLR 

PAT 

BA1 

U? 

U1 

UO 


BIT15 
BIT14 
BIT13 
BIT12 
BIT1 1 
BIT10 
BIT09 
B1T08 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 


DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNIBUS PARITY ERROR 
NONEXISTANT DRIVE-READ ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
MISSED TRANSFER 

MASS8US DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 


.'UNIT SELECT MASK 


UNTMSK = 7 .’UNIT SELECT MASK 

;*RMCS3 RH70 CONTROL STATUS REGISTER #3 


APE 

= BIT15 

DPEHI 

* BIT14 

DPELO 

* BIT13 

UCEHI 

= BIT12 

UCELO 

= BIT11 

DBL 

= BIT10 

IE 

= BIT06 

IPCK3 

= BIT03 

IPCK2 

= BIT02 

IPCK1 

= BIT01 

IPCKO 

= BITOO 


ADDRESS PARITY ERROR 
DATA PARITY ERROR HIGH WORD 
DATA PARITY ERROR LOU WORD 
URITE CHECK ERROR HIGH WORD 
WRITE CHECK ERROR LOU WORD 
DOUBLE WORD TRANSFER 
INTERRUPT ENABLE 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 


.S8TTL RH CONTROLLER REGISTER INDEX VALUES 


RMCS1 

= 00 

RMWC 

= 02 

RMBA 

= 04 

RMCS2 

= 10 

RMDB 

= 22 

RMBAE 

= 50 

RMCS3 

= 52 

ABASE 

= 176700 

AVECT1 

= 120254 


CONTROL. STATUS RE6ISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
CONTROL. STATUS REGISTER 02 
DATA BUFFER 
BUS ADDRESS EXTENSION 
CONTROL. STATUS REGISTER 01 

UNIBUS ADDRESS 

UNIBUS VECTOR ADDRESS AND PRIORITY 




Co ->jo 
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SEO 0022 


J 2 


000000 


000174 
000174 000000 
C00176 000000 


000200 000137 005434 
000204 000137 005424 


000210 
000046 
000046 033756 
000052 
000052 000000 
000210 

001100 


, S8TTL TRAP CATCHER 


.=0 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2, HALT” 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPlRLY LOADED VECTORS 
.=174 


DISPREG: 

SWREG: 


.WORD 

.WORD 


0 

0 


.S8TTL STARTING ADDRESS(ES) 
JMP BASTART 

JMP BASTART1 

.S8TTL ACT11 HOOKS 


.-.-SOFTWARE DISPLAY REGISTER 
.-.-SOFTWARE SWITCH REGISTER 


.-.-JUMP TO STARTING ADDRESS OF PROGRAM 
.-CHANGE RH/RM BUS ADDRESS 


.-HOOKS REOUIRED BY ACT11 
$SVPC=. 

.=46 

$ENDAD 

.=52 

.WORD 0 
.=SSVPC 

.=1100 

.S8TTL APT PARAMETER BLOCK 


.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$E0P 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 


001100 
000024 
000024 000200 
000044 
000044 001100 
001100 


.-SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.JX=. 

.=24 

200 

.=44 

SAPTHDR 

.=.SX 


.-SAVE CURRENT LOCATION 

;SET POWER FAIL TO POINT TO START OF PROGRAM 
.-FOR APT START UP 

.-POINT TO APT INDIRECT ADDRESS PNTR. 

.-POINT TO APT HEADER BLOCK 
.‘RESET LOCATION COUNTER 


001100 


SAPTHD: 


001100 


SHIBTS: .WORD 

0 

001102 

001222 

SMBADR: .WORD 

SMAIL 

001104 

000024 

STSTM: .WORD 

20. 

001106 

000024 

SPASTM: .WORD 

20. 

001110 

000024 

SUNITM: .WORD 

20. 

001112 

000042 

.WORD 

SETEND 


001114 

TAGADR=. 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 


TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

ADDRESS OF APT MAILBOX (BITS 0-15) 

RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
IL/2 .‘.-LENGTH MA I LBOX-E TABLE (WORDS) 


CZRNFAO RM80 FCTNL PT3 MACRO V04.00 28- JAN-82 16:49:32 PAGE 6 
COMMON TAGS 


K 2 


SEQ 0023 


0 .S8TTL COMMON TAGS 

;*THIS TABLE*CONTAINS VARIOUs'cOMMOn'sTORAGE* .NATIONS 
;*USED IN THE PROGRAM. 



001114 



.=TAGADR 




001114 



JCMTAG: 




;; START OF COMMON TAGS 

001114 

000000 



.WORD 

0 




001116 

000 


STSTNM: .BYTE 

0 



;; CONTAINS THE TEST NUMBER 

001117 

000 


SERFLG: .BYTE 

0 



;; CONTAINS ERROR FLAG 

001120 

000000 


$ICNT. 

.WORD 

0 



;; CONTAINS SUBTEST ITERATION COUNT 

001122 

000000 


SLPADR: .WORD 

0 



.'.‘CONTAINS SCOPE LOOP ADDRESS 

001124 

000000 


SLPERR: .WORD 

0 



.'.'CONTAINS SCOPE RETURN FOR ERRORS 

001126 

000000 


SERTTL: .WORD 

0 



;; CONTAINS TOTAL ERRORS DETECTED 

001130 

000 


JITEMB: .BYTE 

0 



;; CONTAINS ITEM CONTROL BYTE 

001131 

001 


SERMAX: .BYTE 

1 



;; CONTAINS MAX. ERRORS PER TEST 

001132 

000000 


SERRPC: .WORD 

0 



;; CONTAINS PC OF LAST ERROR INSTRUCTION 
.'.'CONTAINS ADDRESS OF ‘GOOD’ DATA 

001134 

000000 


SGDADR: .WORD 

0 



001136 

000000 


SBDADR: .WORD 

0 



.‘.‘CONTAINS ADDRESS OF 'BAD* DATA 

001140 

000000 


SGDDAT: .WORD 

0 



;; CONTAINS ’GOOD’ DATA 

001142 

000000 


$6DDAT : .WORD 

0 



;; CONTAINS ’BAD* DATA 

001144 

000000 



.WORD 

0 



;; RESERVED— NOT TO BE USED 

001146 

000000 



.WORD 

0 




001150 

000 


SAUT06: .BYTE 

0 



.‘.‘AUTOMATIC MODE INDICATOR 

001151 

000 


SINTAG: .BYTE 

0 



;; INTERRUPT MODE INDICATOR 

001152 

000000 



.WORD 

0 




001154 

177570 


SWR: 

.WORD 

DSWR 



; .‘ADDRESS OF SWITCH REGISTER 

001156 

177570 


DISPLAY: .WORD 

DDISP 



;; ADDRESS OF DISPLAY REGISTER 

001160 

177560 


*TKS: 

177560 




;;TTY KBD STATUS 

001162 

177562 


STKB: 

177562 




;;TTY KBD BUFFER 

001164 

177564 


STPS: 

177564 




; ; TTY PRINTER STATUS REG. ADDRESS 

001166 

177566 


STPB: 

177566 




.* ; TTY PRINTER BUFFER REG. ADDRESS 

001170 

000 


SNULL 

.BYTE 

0 



;; CONTAINS NULL CHARACTER FOR FILLS 

001171 

0 02 


SFILLS: .BYTE 

2 



;; CONTAINS # OF FILLER CHARACTERS REQUIRED 
.‘.•INSERT FILL CHARS. AFTER A ‘UNE FEED" 
.‘.‘‘TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

001172 

012 


SFILLC : .BYTE 

12 



001173 

000 


$TPFLG: .BYTE 

0 



001174 

000000 


STMPO 

.WORD 

0 



.‘.'USER DEFINED 

001176 

000000 


STMPl 

.WORD 

0 



.‘.‘USER DEFINED 

001200 

000000 


STMP2 

.WORD 

0 



;;USER DEFINED 

001202 

000000 


STMP3 

.WORD 

0 



.-.'USER DEFINED 

001204 

000000 


$TMP4 

.WORD 

0 



.'.‘USER DEFINED 

001206 

000000 


STIMES: 0 




.‘.‘MAX. NUMBER OF ITERATIONS 

001210 

000000 


SESCAPE.-O 




.‘.‘ESCAPE ON ERROR ADDRESS 

001212 

207 

377 

377 IBELL 

.ASCIZ 

<207><377><377> 

.‘.‘CODE FOR BELL 

001216 

077 


SQUES 

.ASCII 

/?/ 



;; QUESTION MARK 

001217 

015 


*CRLF 

.ASCII 

<15> 



;; CARRIAGE RETURN 

001220 

012 

000 

$LF: 

.ASCIZ 

<12> 



.-.'LINE FEED 




••A************************************************************** 




.SBTTL APT MAI LBOX-E TABLE 





;;***' 

.EVEN 

********** 

******** 

**< 

******* 


001222 



SMA1L 



• 

APT MAILBOX 

001222 

000000 


SMSGTY: .WORD 

AMSGTY 

• 

MESSAGE TYPE CODE 

001224 

000000 


JFATAL: .WORD 

AFATAL 

• 

FATAL 

ERROR NUMBER 

001226 

000000 


STESTN: .WORD 

ATESTN 

a 

• 

TEST NUMBER 



L 2 


SEO 0024 


; ;PASS COUNT 
;; DEVICE COUNT 
;;I/0 UNIT NUMBER 
; ; MESSAGE ADDRESS 
; .-MESSAGE LENGTH 
; ;APT ENVIRONMENT TABLE 
;; ENVIRONMENT BYTE 
; .-ENVIRONMENT MODE BITS 
; ;APT SWITCH REGISTER 
; .-USER SWITCHES 
;;CPU TYPE, OPTIONS 
BITS 1 5-1 1=CPU TYPE 

1 1 /04=01 , 1 1 /05=02 , 1 1 /20=03 , 1 1 /40=04 . 1 1 /45=05 
1 1/70=06, PDQ=07, 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
.-.-HIGH ADDRESS ,M.S. BYTE 
;;MEM. TYPE.BLKfl 
HEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC C0RE=001 
300 NSEC BIP0LAR=002 
500 NSEC M0S=003 

; ;HIGH ADDRESS.BLKfl _ „ 

HEM. LAST ADD$.=3 BYTES. THIS WORD AND LOW OF "TYPE** ABOVE 
;;HIGH ADDRESS ,M.S. BYTE 
;; HEM. TYPE ,BLK#2 
;; HEM. LAST ADDRESS, 8LKf2 
;;HIGH ADDRESS ,M.S. BYTE 
;;HEM.TYPE.BIX#3 
;; MEM. LAST ADDRESS ,BLK#3 
; ;HIGH ADDRESS. M.S. BYTE 
;; MEM. TYPE. BLK#4 
;; HEM. LAST ADDRESS. BLK#4 
;; INTERRUPT VECTORfl.BUS PRIORITYfl 
;; INTERRUPT VECT0RA2BUS PRIORI TYf 2 
.-.-BASE ADDRESS OF EQUIPMENT UNDER TEST 
;; DEVICE MAP 

;; CONTROLLER DESCRIPTION WORDfl 
;; CONTROLLER DESCRIPTION W0RD#2 
;; DEVICE DESCRIPTOR WORDfO 
;; DEVICE DESCRIPTOR WORDfl 
; .-DEVICE DESCRIPTOR W0RD#2 
;;DEVICE DESCRIPTOR W0RDf3 
; .-DEVICE DESCRIPTOR W0RDf4 
; .-DEVICE DESCRIPTOR W0RDf5 
;; DEVICE DESCRIPTOR W0RDf6 
; .-DEVICE DESCRIPTOR W0RDf7 
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SEQ 0025 


001326 000000 
001330 000000 
001332 000000 


001334 

001335 


001336 


001336 

001340 

001342 

001344 

001346 

001350 

001352 

001354 

001356 

001360 

001362 

001364 

001366 

001370 

001372 

001374 

001376 

001400 

001402 

001404 

001406 

001410 


001412 


001412 
J01414 
001416 
001420 
001422 
001424 
001 426 
001430 
001432 
001434 
001436 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 


.S8TTL USER DEFINED TA6S 

CTLFG: .WORD 0 ;( 
CHGADR: .WORD 0 ;< 
XXDP: .WORD 0 ;1 


LSTRK: .BYTE 
.BYTE 


CONTAINS CONTROL-C FLAG 

CHANGE RH/RM BUS ADDRESS = -1. NO CHANGE = 0 
THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
•XXDP' DEVICE CODE FOR THE RM80. 

LO BYTE = 0 

HI BYTE. CONTAINS LAST TRACK ADDRESS OF UNIT 
UNDER TEST. RM80 =13. 


;THE REGISTER INPUT BUFFER IS USED FOR 
.•STORING DRIVE STATUS 


GETBUF: 

.•REGISTER INPUT 
RMCS1I: .WORD 
RMWCI: .WORD 
RMBAI: .WORD 
RMDAI : .WORD 
RMCS2I: .WORD 
RMDSI: .WORD 
RMER1I: .WORD 
RMASI: .WORD 
RMLAI: .WORD 
RMDBI: .WORD 
RMMR1I : .WORD 
RMDTI: .WORD 
RMSNI: .WORD 
RMOFI: .WORD 
RMDCI: .WORD 
RMHRI: .WORD 


RMMR2I 

RMER2I 

RMEC1I 

RMEC2I 

RMBAEI 

RMCS3I 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


BUFFER 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


CONTROL. STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL. STATUS REGISTER #2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER #2 
ERROR REGISTER #2 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
BUS ADDRESS EXTENSION REGISTER 
CONTROL. STATUS REGISTER »l 


.-THE REGISTER OUTPUT BUFFER IS USED FOR 
.•ASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 

.•REGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 

RMWCO: .WORD 0 

RMBAO: .WORD 0 

RMDAO: .WORD 0 

RMCS20: .WORD 0 

RMDSO: .WORD 0 

RMER10: .WORD 0 

RMASO: .WORD 0 

RMLAO: .WORD 0 

RMDBO : .WORD 0 

RMMR10: .WORD 0 


CONTROL. STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL. STATUS REGISTER #2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 


CZRNFAO RM80 FCTNL PT3 
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001440 000000 
001442 000000 
001444 000000 
001446 000000 
001450 000000 
001452 000000 
001454 000000 
001456 000000 
001460 000000 
001462 000000 
001464 000000 


001466 000000 
001470 

001510 000000 


001512 000000 


001514 000000 


001516 000000 
001520 000000 
001522 000000 
001524 000000 


001526 


001555 
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N 2 


RMDTO 

RMSNO 

RMOFO 

RMDCO 

RMHRO 

RMMR20 

RMER20 

RMEC10 

RMEC20 

RMBAEO 

RMCS30 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL , STATUS REGISTER #3 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOU BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
END OF THE QUE. 


TSTQUE: .WORD 0 
.BLKU 8. 
.WORD 0 


CONTAINS DEVICE POINTER 
TEST QUE FOR DEVICES UNDER TEST 
TABLE TERMINATOR GOES HERE WHEN 
ALL 8. DEVICES ARE UNDER TEST. 


.'MEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
;FOR THE UNIT UNDER TEST. OTHERWISE IT IS ZERO. 

MEDENB: .WORD 0 .'MEDIA ENABLE 

SKIP SECTOR FAILURE ENABLE IS SET IF THE "SSF*' BIT SHOULD BE 
SET IN THE FIRST HEADER WORD WHEN THE FE CYLINDERS ARE BEING 
REFORMATTED. 

SSFENB: .WORD 0 ;SSF ENABLE 

.•LOCATIONS ' ‘ASNDC" AND "ASNDC" CONTAIN THE CYLINDER. TRACK AND SECTOR 
.'ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 

ASNDC: .WORD 0 

ASNCA: .WORD 0 

CLnADR: .WORD 0 

CLKVCT: .WORD 0 


ASSIGNED DESIRED CYLINDER 
ASSIGNED TRACK. AND SECTOR 
UNIBUS ADDRESS OF KU11 CLOCK 
VECTOR ADDRESS OF KU11 CLOCK 


.'THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
.’ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
;A NEGATIVE BYTE. 

GETINX: .BLKB 23. .'GET INDEX TABLE 

.-THE PUT INDEX TABLE I CONTAINS A BYTE LIST OF REGISTERS WHICH 
.-ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
;A NEGATIVE BYTE. 

PUTINX: .BLKB 23. .'PUT INDEX TABLE 


SEQ 002- 


.-PUT TAGS HERE 



& 3 


SEQ 0027 
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.S8TTL EPROR POINTER TABLE 


001604 

1 


2 


j 

001604 

070002 

001606 

074140 

001610 

074264 

001612 

074354 

4 


5 


001614 

070006 

001616 

074140 

001620 

074264 

001622 

074354 

7 


8 


9 


001624 

070014 

001626 

074140 

001630 

074264 

001632 

074354 

10 


11 


1 2 

001634 

070022 

001636 

074140 

001640 

074264 

001642 

074354 


13 

14 

15 


001644 

001646 

001650 

001652 


070030 

074140 

074264 

074354 


16 

17 


•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BV USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•NQTE1 : IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


; * 

EM 

; ;POINTS TO THE ERROR MESSAGE 

;* 

DH 

;; POINTS TO THE DATA HEADER 

;• 

DT 

;; POINTS TO THE DATA 

• 

;* 

DF 

;; POINTS TO THE DATA FORMAT 

SERRTB: 

.'ERROR 

1 

EMT1 

EHT1 

EDT1 

EFT1 

WRONG UNIT SELECTED 

.•ERROR 

2 

EMT2 

EHT1 

EDT1 

EFT1 

DEVICE WENT UNAVAILABLE 

.•ERROR 

3 

EMT3 

EHT1 

EDT1 

EFT1 

DEVICE WENT NONEXISTENT 

.•ERROR 

4 

EMT4 

EHT1 

EDT1 

EFT1 

CONTROLLER NOT READY 

; ERROR 

5 

EMT5 

EHT1 

EDT1 

EFT1 

DRIVE NOT READY AND GO NOT RESET 

; ERROR 

6 

UNEXPECTED VALUE FOR "ATA" STATUS 
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SEO 0028 


C 3 


18 


001654 

001656 

001660 

001662 


19 

20 
21 


001664 

001666 

001670 

001672 


22 

23 

24 


001674 

001676 

001700 

001702 


25 

26 
27 


001704 
001 706 
001710 
001712 


28 

29 

30 


001714 

001716 

001720 

001722 


31 

32 

33 


001724 
001 726 
001 730 
001732 


34 

35 

36 


001734 
001736 
001 740 
001742 


37 

38 

39 


070036 

074140 

074264 

074354 


070044 

000000 

000000 

000000 


070052 

074140 

074264 

074354 


070056 

074140 

074264 

074354 


070062 

074140 

074264 

074354 


070070 

074140 

074264 

074354 


070102 

074140 

074264 

074354 


EMT6 

EHT1 

EDT1 

EFT1 


; ERROR 7 


EMT7 

0 

0 

0 


.-ERROR 10 


EMTIO 

EHT1 

EDT1 

EFT1 


.•ERROR 11 


EMT11 

EHT1 

EDT1 

EFT1 


.•ERROR 12 


EMT12 

EHT1 

EDT1 

EFT1 


.•ERROR 13 


EMT13 

EHT1 

EDT1 

EFT1 


; ERROR 14 


EMT14 

EHT1 

EDT1 

EFT1 


; ERROR 15 


BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 


DRIVE NOT READY BUT GO IS RESET 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 




PAGE 8-2 


0 3 


SEQ 0029 


INCORRECT BUS ADDRESS 


INCORRECT IBT STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT WLE STATUS 


INCORRECT UPE STATUS 


E 3 
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i 0030 


002036 074140 
002040 074264 
002042 074354 


61 

62 
63 


002044 

002046 

002050 

002052 


64 

65 

66 


002054 

002056 

002060 

002062 


67 

68 
69 


002064 

002066 

002070 

002072 


70 

71 

72 


002074 

002076 

002100 

002102 


73 

74 

75 


002104 

002106 

002110 

002112 


76 

77 

78 


002114 

002116 

002120 

002122 


79 

80 
81 


002124 

002126 


070206 

074140 

074264 

074354 


070216 

074140 

074264 

074354 


070226 

074140 

074264 

074354 


070236 

074140 

074264 

074354 


070246 

074140 

074264 

074354 


070256 

074140 

074264 

074354 


070266 

074140 


EHT1 

EDT1 

EFT1 


; ERROR 25 


EMT25 

EHT1 

EDT1 

EFT1 


;CRROR 26 


EMT26 

EHT1 

EDT1 

EFT1 


; ERROR 27 


EMT27 

EHT1 

EDT1 

EFT1 


; ERROR 30 


EMT30 

EHT1 

EDT1 

EFT1 


.•ERROR 31 


EMT31 

EHT1 

EDT1 

EFT1 


.-ERROR 32 


EMT32 

EHT1 

EDT1 

EFT1 


.•ERROR 33 


EMT33 

EHT1 


INCORRECT UCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MDPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXF SHOULD NOT BE SET 
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SEQ 0031 


F 3 


DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COWHAND) 


LOST , *0L m DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 




PAGE 8-5 


SEQ 003 2 


G 3 


"OPI" ERROR DURING PACK ACKNOWLEDGE 


"MR" ERROR DURING PACK ACKNOWLEDGE 


"ILR" ERROR DURING PACK ACKNOWLEDGE 


"ILF" ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT IAE STATUS DURING SEEK COMMAND 
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H 3 


SEQ 0033 


124 

125 

126 


002314 

002316 

002320 

002322 


127 

128 

129 

130 


002324 

002326 

002330 

002332 


131 

132 

133 


002334 

002336 

002340 

002342 


134 

135 

136 


002344 

002346 

002350 

002352 


137 

138 

139 


002354 

002356 

002360 

002362 


140 

141 

142 


002364 

002366 

002370 

002372 


143 

144 

145 

146 


002374 

002376 

002400 


070456 

074140 

074264 

074354 


070474 

074140 

074264 

074354 


070512 

074140 

074264 

074354 


070522 

074140 

074264 

074354 


070534 

074140 

074264 

074354 


070552 

074140 

074264 

074354 


070562 

074140 

074264 


.•ERROR 

52 

0P1 ERROR DURING SEEK - MEDIUM IS NOT ON LINE 


EMT52 

EHT1 

EDT1 

EFT1 


.-ERROR 

• 

53 

0 PI ERROR DURING SEEK - MEDIUM IS ON LINE. ASSUME 
ON CYLINDER LATCH DIDN’T RESET 


EMT53 

EHT1 

EDT1 

EFT1 


.•ERROR 

54 

SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


EMT54 

EHT1 

EDT1 

EFT1 


.•ERROR 

55 

DEVICE CHECK DURING SEEK COMMAND 


EMT55 

EHT1 

E0T1 

EFT1 


.•ERROR 

56 

PIP IS STILL SET AFTER SEEK - SKI IS RESET 


EMT56 

EHT1 

E0T1 

EFT1 


.•ERROR 

57 

ATA DID NOT SET DURING SEEK COMMAND 


EMT57 

EHT1 

E0T1 

EFT1 


.’ERROR 

9 

60 

IVC ERROR DURING SEEK COMMAND - LOST 

VOLUME VALID 


EMT60 

EHT1 

E0T1 








I 3 


! CZRNFAO RM80 FCTNL PT3 MACRO V04.00 

28-JAN-82 

6:49:32 

PAGE 8-7 

SEO 0034 

ERROR POINTER 

TABLE 





002402 

074354 


EFT1 



147 






148 


.•ERROR 

61 

ERRONEOUS IVC ERROR DURING SEEK COMMAND - 


149 




VOLUME VALID IS STIL SET 


150 






002404 

070600 


EMT61 



002406 

074140 


EHT1 



002410 

074264 


EDT1 



002412 

074354 


EFT1 



151 






152 


.-ERROR 

62 

MOL IS ZERO. BUT OPI WAS NOT 


153 


• 


REPORTED DURING SEEK COMMAND 


154 






002414 

070620 


EMT62 



002416 

074140 


EHT1 



002420 

074264 


EDT1 



002422 

074354 


EFT1 



155 






156 


; ERROR 

63 

SSE SHOULD NOT BE SET 


157 






002424 

070634 


EMT63 



002426 

074140 


EHT1 



002430 

074264 


EDT1 



002432 

074354 


EFT1 



158 






159 


; ERROR 

64 

DRIVE DID NOT DETECT •'IVC*' ERROR DURING SEEK 


160 






002434 

070644 


EMT64 



002436 

074140 


EHTl 



002440 

074264 


EDT1 



002442 

074354 


EFT1 



161 






162 


; ERROR 

65 

DRIVE EXECUTED A SEEK WITH ERROR SET 


163 






002444 

070664 


EMT65 



002446 

074140 


EHTl 



002450 

074264 


EDT1 



002452 

074354 


FFT1 



164 






165 


; ERROR 

66 

UNEXPECTED ERROR SET IN RMER1 


166 






002454 

070704 


EMT66 



002456 

074140 


EHTl 



002460 

074264 


EDT1 



002462 

074354 


EFT1 



167 






168 


; ERROR 

67 

UNEXPECTED ERROR SET IN RMER2 


169 






002464 

070716 


EMT67 



002466 

074140 


EHTl 





SEQ 0035 


CZRNFAO RM80 FCTNL PT3 MACRO V04.00 28- JAN-82 16:49:32 


ERROR POINTER TABLE 



002470 

074264 


EDT1 

002472 

074354 


EFT1 

170 

171 

172 

002474 


; ERROR 

70 

070730 


EMT70 

002476 

074140 


EHT1 

002500 

074264 


EDT1 

002502 

074354 


EFT1 

173 

174 

175 

002504 


; ERROR 

71 

070740 


EMT71 

002506 

074140 


EHT1 

002510 

074264 


EDT1 

002512 

074354 


EFT1 

176 

177 

178 

002514 


.-ERROR 

72 

070750 


EMT72 

002516 

074140 


EHT1 

002520 

074264 


EDT1 

002522 

074354 


EFT1 

179 

180 


.•ERROR 

73 

181 

182 

002524 

070766 

• 

EMT73 

002526 

074140 


EHT1 

002530 

074264 


EDT1 

002532 

074354 


EFT1 

183 

184 


.•ERROR 

74 

185 

002534 

071004 


EMT74 

002536 

074140 


EHT1 

002540 

074264 


EDT1 

002542 

074354 


EFT1 

186 

187 


.•ERROR 

75 

188 

002544 

071014 


EMT75 

002546 

074140 


EHT1 

002550 

074264 


EDT1 

002552 

074354 


EFT1 

189 

190 


.•ERROR 

76 

191 

002554 

071034 


EMT76 

002556 

074140 


EHT1 


PAGE 8-8 


ERRONEOUS ,, 1AE , ‘ ERROR DURING RECALIBRATE 


"ILF** ERROR DURING RECALIBRATE 


'tJPr* ERROR DURING RECALIBRATE DUE TO 'WOL" = 0 


•tJPI" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


•*IVC M ERROR DURING RECALIBRATE - ’VV* = 0 


ERRONEOUS "IVC" ERROR DURING RECALIBRATE - , VV = 1 


••SKI*' ERROR DURING RECALIBRATE 
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ERROR POINTER 

TABLE 




002560 

074264 


EDT1 


002562 

074354 


EFT1 


192 

193 


.-ERROR 

77 

"DVC" OCCURRED DURING RECALIBRATE 

194 





002564 

071044 


EMT77 


002566 

074140 


EHT1 


002570 

074264 


EDT1 


002572 

074354 


EFT1 


195 





196 


.'ERROR 

100 

LOST "MOL" DURING RECALIBRATE - "OPI" * 0 

197 





002574 

071056 


EMT100 


002576 

074140 


EHT1 


002600 

074264 


EDT1 


002602 

074354 


EFT1 


198 





199 


.•ERROR 

101 

LOST "VV" DURING RECALIBRATE - "IVC" = 0 

200 





002604 

071074 


EMT101 


002606 

074140 


EHT1 


002610 

074264 


EDT1 


002612 

074354 


EFT1 


201 





202 

203 

002614 


.-ERROR 

102 

"ATA" DID NOT SET DURING RECALIBRATE 

071112 


EMT102 


002616 

074140 


EHT1 


002620 

074264 


EDT1 


002622 

074354 


EFT1 


204 





205 


.-ERROR 

103 

’W* DID NOT RESET DURING RECALIBRATE 

2 06 





002624 

071122 


EMT103 


002626 

074140 


EHT1 


002630 

074264 


EDT1 


002632 

074354 


EFT1 


207 





208 

209 

002634 


.-ERROR 

104 

"PIP" IS STIL SET AFTER RECALIBRATE 

071134 


EWT104 


002636 

074140 


EHT1 


002640 

074264 


EDT1 


002642 

074354 


EFT1 


2 10 





211 


.‘ERROR 

105 

UNEXPECTED "ILR" ERROR DURING RECALIBRATE 

212 





002644 

071152 


EMT105 


002646 

074140 


EHT1 


002650 

074264 


EDT1 




L 3 


SEO 0037 
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002652 074354 EFT1 


213 

214 

215 


002654 

002656 

002660 

002662 


216 

217 

218 


002664 

002666 

002670 

002672 


219 

220 
221 


002674 

002676 

002700 

002702 


222 

223 

224 


002704 

002706 

002710 

002712 


225 

226 
227 


002714 

002716 

002720 

002722 


228 

229 

230 


002724 

002726 

002730 

002732 


231 

232 

233 


002734 

002736 

002740 

002742 


071162 

074140 

074264 

074354 


071172 

074140 

074264 

074354 


071212 

074162 

074302 

074372 


071224 

074166 

074304 

074374 


071232 

074166 

074304 

074374 


071240 

000000 

OOOGOO 

000000 


000000 

000000 

000000 

000000 


.-ERROR 

106 

UNEXPECTED "RMR" ERROR DURING RECALIBRATE 


EMT106 

EHT1 

EDT1 

EFT1 


.-ERROR 

107 

’UNS" ERROR DURING RECALIBRATE - AC POWEf* IS LOW 


EMT107 

EHT1 

EDT1 

EFT1 


; ERROR 

110 

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


EMT110 
EHT110 
EDT110 
EFT 110 


.-ERROR 

111 

NONEXISTENT DEVICE 


EMT111 

EHT111 

EDT111 

EFT111 


.-ERROR 

112 

DEVICE NOT AVAILABLE 


EMT112 
EHT111 
EDT111 
EF Till 


.•ERROR 

113 

BUS TINEOUT-NED STATUS FAILURE 


EMT113 

0 

0 

0 


.'ERROR 

114 

UNUSED 


0 

0 

0 

0 
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SEO 0038 


234 

235 

236 


002744 

002746 

002750 

002752 


237 

238 

239 


002754 

002756 

002760 

002762 


240 

241 

242 


002764 

002766 

002770 

002772 


243 

244 

245 


002774 

002776 

003000 

003002 


246 

247 

248 


003004 

003006 

003010 

003012 


249 

250 

251 


003014 

003016 

003020 

003022 


252 

253 

254 


003024 

003026 

003030 

003032 


071256 

074140 

074264 

074354 


071266 

074140 

074264 

074354 


071276 

074140 

074264 

074354 


071306 

074140 

074264 

074354 


071316 

074140 

074264 

074354 


071326 

074140 

074264 

074354 


071336 

074140 

074264 

074354 


M 3 


.-ERROR 115 RMCS1 NOT INITIALIZED BY UNIBUS 

EMT115 

EHT1 

EDT1 

EFT1 

.•ERROR 116 RMBA NOT INITIALIZED BY UNIBUS 

EMT116 

EHT1 

EDT1 

EFT1 

.•ERROR 117 RMCS2 NOT INITIALIZED BY UNIBUS 

EMT117 

EHT1 

EDT1 

EFT1 

.•ERROR 120 RMER1 NOT INITIALIZED BY UNIBUS 

EMT120 

EHT1 

EDT1 

EFT1 

.•ERROR 121 RMAS NOT INITIALIZED BY UNIBUS 

EMT121 

EHT1 

EDT1 

EFT1 


; ERROR 122 


RflMRI NOT INITIALIZED BY UNIBUS 


EMT122 

EHT1 

EDT1 

EFT1 


; ERROR 123 RMDS NOT INITIALIZED BY UNIBUS 

EMT123 

EHT1 

EDT1 

EFT1 
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SEQ 0039 


; ERROR 124 RMEC2 NOT INITIALIZED BY UNIBUS 


003034 

071346 

EMT124 

003036 

074140 

EHT1 

003040 

074264 

EDT1 

003042 

074354 

EFT1 

258 



259 


; ERROR 125 

£OU 

003044 

071356 

EMT125 

003046 

074140 

EHT1 

003050 

074264 

EDT1 

003052 

074354 

EFT1 

261 



262 


; ERROR 126 

263 



003054 

071366 

EMT126 

003056 

074140 

EHT1 

003060 

074264 

EDT1 

003062 

074354 

EFT1 


003064 

003066 

003070 

003072 


071400 

074140 

074264 

074354 


.•ERROR 127 RMBA NOT CLEARED BY CONTROLLER CLEAR 

EMT1 27 
EHT1 
EDT1 
EFT1 


003074 

003076 

003100 

003102 


071412 

074140 

074264 

074354 


;ERRCl 130 RMCS2 NOT CLEARED BY CONTROLLER CLEAR 

EMT130 

EHT1 

EDT1 

EFT1 


003104 

003106 

003110 

003112 


071424 

074140 

074264 

074354 


.•ERROR 131 RMER1 NOT CLEARED BY CONTROLLER CLEAR 

EMT131 

EHT1 

EDT1 

EFT1 


003114 

003116 

003120 

003122 


071436 

074140 

074264 

074354 


.•ERROR 132 RMAS NOT CLEARED BY CONTROLLER CLEAR 

i EMT132 

EHT1 
EDT1 
EFT1 


J 
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003124 

003126 

003130 

003132 


071450 

074140 

074264 

074354 
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; ERROR 133 RMNR1 NOT CLEARED BY CONTROLLER CLEAR 

EMT133 

EHT1 

EDT1 

EFT1 


SEO 004, 


003134 

003136 

003140 

003142 


071462 

074140 

074264 

074354 


.ERROR 134 RMDS NOT CLEARED BY CONTROLLER CLEAR 

EMT134 

EHT1 

EDT1 

EFT1 


003144 

003146 

003150 

003152 


071474 

074140 

074264 

074354 


.ERROR 135 RMEC2 NOT CLEARED BY CONTROLLER CLEAR 

EMT135 

EHT1 

EDT1 

EFT1 


003154 

003156 

003160 

003162 


071506 

074140 

074264 

074354 


; ERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 

EMT136 

EHT1 

fcDTI 

EFT1 


003164 

003166 

003170 

003172 


071520 

074140 

074264 

074354 


rERROR 137 RMCS1 NOT CLEARED BY ERROR CLEAR 

EMT137 

EHT1 

EDT1 

EFT1 


003174 

003176 

003200 

003202 


071530 

074140 

074264 

074354 


: ERROR 140 RMCS2 NOT CLEARED BY ERROR CLEAR 

EMT140 

EHT1 

EDT1 

EFT1 


003204 

003206 

003210 

003212 


071540 

074140 

074264 

074354 


.'ERROR 141 RMCS1 NOT CLEARED BY DRIVE CLEAR 

EMT141 

EHT1 

EDT1 

EFT1 


.•ERROR 142 


RMDS NOT CLEARED BY DRIVE CLEAR 
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ERROR POINTER 

rABLE 




299 




EMT142 


003214 

071550 




003216 

074140 


EHT1 



003220 

074264 


EDT1 


300 

301 

302 

003222 

074354 

.-ERROR 

EFT1 

143 

EMT143 

RMER1 NOT CLEARED BY DRIVE CLEAR 

003224 

071560 




003226 

074140 


EHT1 



003230 

074264 


E0T1 



003232 

074354 


EFT1 


303 






304 



.•ERROR 

144 

RMAS NOT CLEARED BY DRIVE CLEAR 

305 

003234 

071570 


EMT144 



003236 

074140 


EHT1 



003240 

074264 


EDT1 



003242 

074354 


EFT1 


306 

307 

308 



.•ERROR 

H5 

RNMR1 NOT CLEARED BY DRIVE CLEAR 

003244 

071600 


EMT145 



003246 

074140 


EHT1 



003250 

074264 


EDT1 


309 

310 

311 

003252 

074354 

.-ERROR 

EFT1 

146 

EMT146 

RNNR2 NOT CLEARED BY DRIVE CLEAR 

003254 

071610 




003256 

074140 


EHT1 



003260 

074264 


EDT1 



003262 

074354 


EFT1 


312 

313 

314 



.•ERROR 

147 

RNER2 NOT CLEARED BY DRIVE CLEAR 

003264 

071620 


EMT147 



003266 

074140 


EHT1 



003270 

074264 


EDT1 



003272 

074354 


EFT1 


315 

316 

317 



.•ERROR 

150 

RNEC2 NOT CLEARED BY DRIVE CLEAR 

003274 

071630 


ENT 150 



003276 

074140 


EHT1 



003300 

074264 


EDT1 



003302 

074354 


EFT1 


318 






319 



.•ERROR 

151 

NEDIUN NOT ON LINE 

320 







D 4 


SEO OOAi 
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003304 

003306 

003310 

003312 

071640 

074140 

074264 

074354 


ENT 151 
EHT1 

EDT1 

EFTI 


321 

322 

323 

003314 

003316 

003320 

003322 

071652 

074140 

074264 

074354 

; ERROR 

152 

EMT152 

EHT1 

EDT1 

EFTI 

DRIVE FAULT 

324 

325 

326 

003324 

003326 

003330 

003332 

071664 

074140 

074264 

074354 

; ERROR 

153 

EMT153 

EHT1 

EDT1 

EFTI 

UNSAFE SHOULD BE SET BECAUSE DVC IS SET 

327 

328 

329 

003334 

003336 

003340 

003342 

071702 

074140 

074264 

074354 

; ERROR 

154 

EMT154 

EHT1 

E0T1 

EFTI 

UNSAFE SHOULD NOT BE SET. AC IS LOU 

330 

331 

332 

003344 

0C3346 

003350 

003352 

071720 

074140 

074264 

074354 

.'ERROR 

155 

EMT155 

EHT1 

EDT1 

EFTI 

VOLUME VALID NOT SET BY PACK ACK 

333 

334 

335 



.•ERROR 

156 

OFFSET NODE NOT SET BY OFFSET COMMAND 

003354 

003356 

003360 

003362 

071732 

074140 

074264 

074354 


EMT156 

EHT1 

E0T1 

EFTI 


336 

337 

338 

003364 

003366 

003370 

003372 

071744 

074140 

074264 

074354 

.'ERROR 

157 

EMT157 

EHT1 

E0T1 

EFTI 

OFFSET MODE NOT RESET BY RTC COMMAND 

339 

340 

341 

003374 

071756 

.•ERROR 

160 

EMT160 

RMOF NOT RESET BY RIP COMMAND 
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003376 074140 
003400 074264 
003402 074354 


342 

343 

344 


003404 

003406 

003410 

003412 


345 

346 

347 


003414 

003416 

003420 

003422 


348 

349 

350 

351 


003424 

003426 

003430 

003432 


352 

353 

354 


003434 

003436 

003440 

003442 


355 

356 

357 


003444 

003446 

003450 

003452 


358 

359 

360 


003454 

003456 

003460 

003462 


361 

362 

363 


071766 

074140 

074264 

074354 


072000 

074140 

074264 

074354 


073734 

074222 

074320 

074410 


072022 

074140 

074264 

074354 


072030 

074140 

074264 

074354 


072036 

074140 

074264 

074354 
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EHT1 

EDT1 

EFT1 


E A 


5E0 0043 


003464 0720 44 


.-ERROR 161 RMDA NOT RESET BY RIP COMMAND 

EMT161 

EHT1 

EDT1 

EFT1 

; ERROR 162 RMDC NOT RESET BY RIP COMMAND 

EMT162 

EHT1 

EDT1 

EFT1 

.-ERROR 163 DATA WAS ECC CORRECTFD BUT DOES NOT COMPARE WITH 
; WRITE BUFFER 

EMT336 

EHT336 

EDT336 

EFT336 

.-ERROR 164 OPI SHOULD NOT BE SET 

EMT164 

EHT1 

EDT1 

EFT1 

.-ERROR 165 I VC SHOULD NOT BE SET 

EMT165 

EHT1 

EDT1 

EFT1 

.-ERROR 166 IAE SHOULD NOT BE SET 

EMT166 

EHT1 

EDT1 

EFT1 


.-ERROR 167 NEM SHOULD NOT BE SET 
EMT167 


SEC 0044 


CZRNFAO RM80 FCTNL PT3 MACRO 
ERROR POINTER TABLE 

003466 074140 
003470 074264 
003472 074354 
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003474 072052 
003476 074140 
003500 074264 
003502 074354 


.•ERROR 170 INCORRECT ‘*0L” STATUS DURING DIAGNOSTIC MODE 

EMT170 

EHT1 

EDT1 

EFT1 


003504 

003506 

003510 

003512 


072064 

074140 

074264 

074354 


.•ERROR 171 ,, ATA M NOT SET DURING RETURN TO CENTERLINE 

EMT171 

EHT1 

EDT1 

EFT1 


003514 

003516 

003520 

003522 


072074 

074140 

074264 

074354 


.•ERROR 172 "ATA" NOT SET BY OFFSET COMMAND 

EMT1 72 
EHT1 
EDT1 
EFT1 


003524 

003526 

003530 

003532 


072104 

074140 

074264 

074354 


.•ERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 

EMT173 

EHT1 

EDT1 

EFT1 


003534 

003536 

003540 

003542 


072114 

074140 

074264 

074354 


.•ERROR 174 RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 

EMT174 

EHT1 

EDT1 

EFT1 


003544 

003546 

003550 

003552 


072126 

074140 

074264 

074354 


.ERROR 175 SELECTED DEVICE IS IN WRITE PROTECT 

EMT175 

EHT1 

EDT1 

EFT1 


003554 

003556 


072134 

074140 


; ERROR 176 CANNOT SET DIAGNOSTIC MODE 

EMT176 

EHT1 
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ERROR POINTER TABLE 


SEQ 0045 



0035S0 

003562 


074264 

074354 


003564 

003566 

003570 

003572 


000000 

000000 

000000 

000000 


003574 

003576 

003600 

003602 


072144 

074140 

074264 

074354 


003604 

003606 

003610 

003612 


072156 

074140 

074264 

074354 


003614 

003616 

003620 

003622 


072170 

074140 

074264 

074354 


003624 

003626 

003630 

003632 


072202 

074140 

074264 

074354 


003634 

003636 

003640 

003642 


072214 

074140 

074264 

074354 


E0T1 

EFT1 


;ERR0R 177 —RESERVED FOR POWER MONITOR BIT FAILURE— 

0 

0 

0 

0 


.'ERROR 200 INCORRECT "P»°" STATUS DURING DIAGNOSTIC MODE 

EMT200 

t'HTI 

EDT1 

EFT1 


.'ERROR 201 INCORRECT ‘MRL" STATUS DURING DIAGNOSTIC MODE 

EMT2G1 

EHT1 

EDT1 

EFT1 


.-ERROR 202 INCORRECT “SKI" STATUS DURING DIAGNOSTIC MODE 

EMT202 

EHT1 

EDT1 

EFT1 


.'ERROR 203 INCORRECT ’DVC" STATUS DURING DIAGNOSTIC MODE 

EMT203 

EHT1 

EDT1 

EFT1 


.'ERROR 204 "VV" WAS NOT RESET BY MAINTENANCE UNIT READY 


EMT204 

EHT1 


EDT1 


EFT1 


.•ERROR 205 SELECTED DEVICE HAS A PERSISTENT ’•SKI" ERROR 


003644 072232 
003646 074140 
003650 074264 


EMT205 

EHT1 

EDT1 


SEQ 004d 


C?RNFA0 RM80 FCTNL PT3 MACRO 
ERROR POINTER TABLE 


003652 

074354 

406 


407 


408 


003654 

072242 

003656 

074140 

003660 

074264 

003662 

074354 

40V 


410 


411 


003664 

072252 

003666 

074140 

003670 

074264 

003672 

074354 

412 


413 


414 


003674 

072264 

003676 

074140 

003700 

074264 

003702 

074354 
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EFT1 

.•ERROR 206 ’tBC" DID NOT SET DURING DIAGNOSTIC NODE 

EMT206 

EHT1 

EDT1 

EFT1 

.ERROR 207 UNEXPECTED LOSS OF ’MOL" - MEDIUM IS OFF LINE 

EMT207 

EHT1 

EDT1 

EFT1 

.ERROR 210 UNEXPECTED LOSS OF VOLUME VALID - 'W* = 0 

EMT210 

EHT1 

EDT1 

EFT1 


003704 

003706 

003710 

003712 


072272 

074140 

074264 

074354 


.•ERROR 211 UNEXPECTED MECHANICAL MOTION - * PIP " = 1 

EMT211 

EHT1 

EDT1 

EFT1 


003714 

003716 

003720 

003722 


072306 

074140 

074264 

074354 


.-ERROR 212 UNEXPECTED DEVICE FAULT - 'W * 1 

EMT212 

EHT1 

EDT1 

EFT1 


003724 

003726 

003730 

003732 


072322 

074140 

074264 

074354 


.-ERROR 213 UNEXPECTED SEEK INCOMPLETE ERROR - '•SKI" = 1 

EMT213 

EHT1 

2DT1 

EFT1 


003734 

003736 

003740 

003742 


072332 

074152 

074274 

074364 


.•ERROR 214 DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 

EMT214 

EHT2 

EDT2 

EFT2 


1 CZRNFAO 

RH80 FCTNL PT3 MACRO V04 

.00 28- JAN-82 16:49:32 

PAGE 8-20 

SEQ 0047 

ERROR POINTER 

rABLE 





427 

428 

429 



; ERROR 

215 

EMT215 

DRIVE DID NOT DETECT • , IVC• , ERROR DURING RECALIBRATE 


003744 

072352 





003746 

074152 


EHT2 




003750 

074274 


EDT2 



430 

431 

432 

003752 

074364 

; ERROR 

EFT2 

216 

EMT216 

INCORRECT "IVC" STATUS 


003754 

072364 





003756 

074140 


EHT1 




003760 

074264 


EDT1 




003762 

074354 


EFT1 



433 

434 



.'ERROR 

217 

INCORRECT "IAE" STATUS 


435 

003764 

072374 


ENT217 




003766 

074140 


EHT1 




003770 

074264 


EDT1 




003772 

074354 


EFT1 



436 

437 



.•ERROR 220 

INCORRECT ’VJLE’* STATUS 


438 







003774 

072404 


ENT220 




003776 

074140 


EHT1 




004000 

074264 


EDT1 




004002 

074354 


EFT1 



439 





INCORRECT •tJPr* STATUS 


440 

441 



.•ERROR 

221 


004004 

072414 


ENT221 




004006 

074140 


EHT1 




004010 

074264 


EDT1 




004012 

074354 


EFT1 



44 2 

443 

444 



.'ERROR 

222 

RM80 DID NOT DETECT RHR ERROR 


004014 

072424 


EMT222 




004016 

074140 


EHT1 




004020 

074264 


EDT1 




004022 

074354 


EFT1 



445 

446 



.•ERROR 

223 

RM80 Di; NOT DETECT PARITY ERROR ON MASS8US CONTROL BUS 


447 

004024 

072434 


EMT223 




004026 

074176 


EHT223 




004030 

074310 


EDT223 




004032 

074400 


EFT223 
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ERROR POINTER TABLE 



448 




224 

449 



; ERROR 

4 c * 

004034 

072444 


EMT224 


004036 

074140 


EHT1 


004040 

074264 


EDT1 


004042 

074354 


EFT1 

451 




225 

452 

453 



; ERROR 

EMT225 

004044 

072460 



004046 

074140 


EHT1 


004050 

074264 


EDT1 


004052 

074354 


EFT1 

454 




226 

455 

456 



.-ERROR 

EMT226 

004054 

072500 



004056 

074140 


EHT1 


004060 

074264 


EDT1 


004062 

074354 


EFT1 

45? 




227 

458 

459 



.-ERROR 

EMT227 

004064 

072510 



004066 

074140 


EHT1 


004070 

074264 


EDT1 


004072 

074354 


EFT1 

460 




230 

461 
46 2 



.■ERROR 

004074 

072524 


EWT230 


004076 

00"000 


0 


004100 

000000 


0 


004102 

000000 


0 

463 




231 

464 

465 



.•ERROR 

004104 

072526 


EMT231 


004106 

000000 


0 


004110 

000000 


0 


004112 

000000 


0 

466 




23 2 

46 7 
468 



; ERROR 

004114 

072530 


EMT232 


004116 

000000 


0 


004120 

000000 


0 


004122 

000000 


0 


SSE NOT DETECTED DURING DATA TRANSFER 


"SSEI" NOT RESET BT END OF TRACK DURING DATA TRANSFER 


"SSE I” SHOULD BE SET AFTER DATA TRANSFER 


SSE WAS DETECTED U/ SSEI SET 


UNUSED 


UNUSED 


UNUSED 


SEQ 0048 


469 



490 

491 


.-ERROR 242 


UNUSED 


SEQ 004< 



HR NFAU RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 8-23 ' SEO 005C 

r r\r\«r\ hAi.ivrr. van. 


ERROR POINTER 

TABLE 




492 





004214 

000000 


0 


004216 

000000 


0 


004220 

000000 


0 


004222 

000000 


0 


493 





494 


; ERROR 

243 

UNUSED 

495 





004224 

000000 


0 


004226 

000000 


0 


004230 

000000 


0 


004232 

000000 


0 


496 





497 


.-ERROR 

244 

UNUSED 

498 





004234 

000000 


0 


004236 

000000 


0 


004240 

000000 


0 


004242 

000000 


0 


499 





500 

501 

004244 


.•ERROR 

245 

UNUSED 

000000 


0 


004246 

000000 


0 


004250 

000000 


0 


004252 

000000 


0 


502 





503 

504 

004254 


; ERROR 

246 

'•ATA M NOT RESET BY 60 WHEN "ERR" = i 

072560 


EMT246 


004256 

074140 


EHT1 


004260 

074264 


EDT1 


004262 

074354 


EFT1 


505 





506 

507 

004264 


; ERROR 

247 

"ATA" NOT RESET BY WRITING RNAS 

072570 


ENT247 


004266 

074140 


EHT1 


004270 

074264 


EDT1 


004272 

074354 


EFT1 


508 





509 

510 

004274 


.•ERROR 

250 

"ATA" WAS RESET BY 60 WHEN *tRR" = 

072602 


ENT250 


004276 

074140 


EHT1 


004300 

074264 


EDT1 


004302 

074354 


EFTJ 


511 





512 


.•ERROR 

251 

PROGRAM INTERRUPT WAS NOT GENERATED 

513 
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ERROR POINTER TABLE 

004304 072616 
004306 074152 
004310 074274 
004312 074364 
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SEO 0051 


EMT251 

EHT2 

EDT2 

EFT2 


004314 

004316 

004320 

004322 


072624 

074152 

074274 

074364 


; ERROR 252 PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 

EMT252 

EHT2 

EDT2 

EFT2 


004324 

004326 

004330 

004332 


072632 

074140 

074264 

074354 


.•ERROR 253 OFFSET MODE WAS NOT RESET BY WRITING RMDC 

EMT253 

EHT1 

EDT1 

EFT1 


004334 

004336 

004340 

004342 


072650 

074140 

074264 

074354 


.•ERROR 254 INCORRECT "ILF'* STATUS 

EMT254 

EHT1 

EDT1 

EFT1 


004344 

004346 

004350 

004352 


072660 

074140 

074264 

074354 


.•ERROR 255 INCORRECT "ATA" STATUS 

EMT255 

EHT1 

EDT1 

EFT1 


004354 

004356 

004360 

004362 


072670 

074210 

074310 

074400 


.•ERROR 256 INCORRECT "ILR" STATUS 

EMT256 

EHT256 

EDT223 

EFT223 


004364 

004366 

004370 

004372 


072700 

074140 

074264 

074354 


.•ERROR 257 INVALID IAE STATUS DURING SEARCH COMMAND 

EMT257 

EHT1 

EDT1 

EFT1 


004374 072712 


.•ERROR 260 

EMT260 


"IVC" WAS NOT DETECTED DURING SEARCH COMMAND 


CZRNFAO RM80 FCTNL PT3 MACRO V04.C0 28-JAN-82 16:49:32 PAGE 8-25 


ERROR POINTER TABLE 



004376 

074140 


EHT1 

004400 

074264 


EDT1 

004402 

074354 


EFT1 

S35 

536 

537 

004404 


;ERR0R 

261 

072724 


EMT261 

004406 

074140 


EHT1 

004410 

074264 


EDT1 

004412 

074354 


EFT1 

538 

539 

540 

004414 


.-ERROR 

262 

072744 


EMT262 

004416 

074140 


EHT1 

004420 

074264 


EDT1 

004422 

074354 


EFT1 

541 

542 


.•ERROR 

263 

543 

004424 

072754 


EMT263 

004426 

074140 


EHT1 

004430 

074264 


EDT1 

004432 

074354 


EFT1 

544 

545 


.•ERROR 

264 

546 

004434 

072764 


EMT264 

004436 

074140 


EHT1 

004440 

074264 


EDT1 

004442 

074354 


EFT1 

547 

548 

549 

004444 


; ERROR 

265 

073004 


EMT265 

004446 

074140 


EHT1 

004450 

074264 


EDT1 

004452 

074354 


EFT1 

550 

551 


;ERROR 

266 

552 

0044.4 

0^3024 


EMT266 

004456 

074140 


EHT1 

004460 

074264 


EDT1 

004462 

074354 


EFT1 

553 

554 

555 


.•ERROR 

• 

267 

556 

004464 

073036 


EMT267 


DRIVE EXECUTED SEARCH WITH ERROR SET 


•tSC" ERROR NOT SET DURING DIAGNOSTIC MODE 


"SKI" ERROR DURING SEARCH COMMAND 


"IVC" ERROR DURING SEARCH - LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 


SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE 


SEO 00 
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ERROR POINTER 

TABLE 


004466 

074140 


004470 

074264 

074354 


004472 


557 

558 


; ERROR 

559 

004474 

073054 


004476 

074140 


004500 

074264 


004502 

074354 



EHT1 
EOT 1 
EFT1 


27 0 OPI ERROR DURING SEARCH BECAUSE MOL = 0 

EMT270 

EHT1 

EDT1 

EFT1 


560 

561 

562 

563 


004504 

004506 

004510 

004512 


073070 

074140 

074264 

074354 


.•ERROR 271 

OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 

• 

DIDN’T DROP 

EMT271 


EHT1 


EDT1 


EFT1 



564 

565 

566 


004514 

004516 

004520 

004522 


073106 

074140 

074264 

074354 


.ERROR 272 LOST MOL DURING SEARCH. OPI IS NOT SET 

EMT272 

EHT1 

EDT1 

EFT1 


567 

568 

569 

004524 073124 

004526 074140 
004530 074264 
004532 074354 


570 

571 

572 

573 


004534 

004536 

004540 

004542 


073142 

074140 

074264 

074354 


.ERROR 273 

PIP STIL SET AFTER SEARCH 

EMT273 

EHT1 

EDT1 

EFT1 


.ERROR 274 

0 

PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 

EMT274 

EHT1 

EDT1 

EFT1 



574 

575 

576 

577 


004544 

004546 

004550 

004552 


073160 

074140 

074264 

074354 



.•ERROR 275 

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 

0 

COMMAND STARTED 

EMT275 


EHT1 


EDT1 


EFT1 


.•ERROR 276 

•lOPI" ERROR DURING DATA TRANSFER BECAUSE ’MOL** WAS 
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ERROR POINTER TABLE 



580 

581 

004554 

073172 

• 

ENT276 

C04556 

074140 


EHT1 

004560 

074264 


EDT1 

004562 

074354 


EFT1 

582 

583 


.-ERROR 

277 

584 

585 

586 

004564 

073206 


EMT27? 

004566 

074140 


EHT1 

004570 

074264 


EDT1 

004572 

074354 


EFT1 

587 

588 


; ERROR 

300 

589 

590 

004574 

073224 

• 

* 

EMT300 

004576 

074140 


EHT1 

004600 

074264 


EDT1 

004602 

074354 


EFT1 

591 

592 


.-ERROR 

301 

593 

594 

004604 

073244 

• 

EMT301 

004606 

074140 


EHT1 

004610 

074264 


EDT1 

004612 

074354 


EFT1 

595 

596 


; ERROR 

302 

597 

004614 

073266 


EMT302 

004616 

074140 


EHT1 

004620 

074264 


EDT1 

00462? 

074354 


EFT1 

598 

599 


.•ERROR 

303 

600 

004624 

073300 


EMT303 

004626 

074140 


EHT1 

004630 

074264 


EDT1 

004632 

074354 


EFT1 

601 

602 

603 

004634 


.•ERROR 

304 

073312 


EMT304 

004636 

074140 


EHT1 

004640 

074264 


EDT1 


ZERO 


"OPI" ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 


"I VC" ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS "IVC" ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 


"ILR" ERROR DURING DATA TRANSFER 


"ILF" ERROR DURING DATA TRANSFER 


’W*R" ERROR DURING DATA TRANSFER 


C2RNF AO RM80 FCTNL PT 3 MACRO 
ERROR POINTER TABLE 

004642 074354 
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SEO 005 


004644 

004646 

004650 

004652 


073324 

074140 

074264 

074354 


.•ERROR 305 INCORRECT "IAE" STATUS DURING DATA TRANSFER 

EMT305 

EHT1 

EDT1 

EFT1 


004654 

004656 

004660 

004662 


073336 

074140 

074264 

074354 


.•ERROR 306 


EMT306 

EHT1 

EDT1 

EFT1 


*SKI" ERROR DURING DATA TRANSFER 


004664 

004666 

004670 

004672 


073346 

074140 

074264 

074354 


.•ERROR 307 DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 

EMT307 

EHT1 

EDT1 

EFT1 


004674 

004676 

004700 

004702 


073366 

074140 

074264 

074354 


.•ERROR 310 DEVICE FAULT DURING DATA TRANSFER 

EMT310 

EHT1 

EDT1 

EFT1 


004704 

004706 

004710 

004712 


073400 

074140 

074264 

074354 


.’ERROR 311 LOSS OF BIT CLOCK DURING DATA TRANSFER 

EMT311 

EHT1 

EDT1 

EFT1 


004714 

004716 

004720 

004722 


073412 

074140 

074264 

074354 


.ERROR 312 LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 

EMT312 

EHT1 

EDT1 

EFT1 


004724 

004726 

004730 

004732 


073424 

074140 

074264 

074354 


.•ERROR 313 UNSAFE ERROR DURING DATA TRANSFER (DVC = 

EMT313 

EHT1 

EDT1 

EFT1 
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SEQ 0036 




625 

626 
627 


004734 

004736 

004740 

004742 


628 

629 

630 


004744 

004746 

004750 

004752 


631 

632 

633 


004754 

004756 

004760 

004762 


634 

635 

636 


004764 

004766 

004770 

004772 


637 

638 

639 


004774 

004776 

005000 

005002 


640 

641 

642 


005004 

005006 

005010 

005012 


643 

644 

645 


005014 

005016 

005020 

005022 


073444 

C74140 

074264 

074354 


073456 

074140 

074264 

074354 


073470 

074140 

074264 

074354 


073502 

074140 

074264 

074354 


073512 

074140 

074264 

074354 


073522 

074140 

074264 

074354 


073532 

074140 

074264 

07435* 


.-ERROR 

314 

DRIVE TIMING ERROR DURING DATA TRANSFER 


EHT314 

EHT1 

EDT1 

EFT1 


.•ERROR 

315 

WRITE LOCK ERROR 


EMT315 

EHT1 

EDT1 

EFT1 


.•ERROR 

316 

ERRONEOUS WRITE LOCK ERROR 


EMT316 

EHT1 

E0T1 

EFT1 


.-ERROR 

317 

HEADER CRC ERROR DURING DATA TRANSFER 


EAT317 

EHT1 

EDT1 

EFT1 


.-ERROR 

320 

FORMAT ERROR DURING DATA TRANSFER 


EHT320 

EHT1 

EDT1 

EFT1 


; ERROR 

321 

header compare error during data TRANSFER 


EMT321 

EHT1 

EDT1 

EFT1 


.-ERROR 

322 

HEADER ERRORS SHOULD NOT BE SET 


EHT322 

EHT1 

EDT1 

EF T1 



C2RNFA0 RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 8-30 


ERROR POINTER TABLE 



646 

647 

648 

005024 

005026 

005030 

005032 


.-ERROR 

323 

073540 

074140 

074264 

074354 


EMT323 

EHT1 

EDT1 

EFT1 

649 

650 

651 

005034 

005036 

005040 

005042 


.•ERROR 

324 

073550 

074140 

074264 

074354 


EMT324 

EHT1 

EDT1 

EFT1 

652 

653 

654 

005044 

005046 

005050 

005052 

073562 

074140 

074264 

074354 

.-ERROR 

325 

EMT325 

EHT1 

EDT1 

EFT1 

655 

656 

657 

005054 

005056 

005060 

005062 

073574 

074140 

074264 

074354 

.‘ERROR 

326 

EMT326 

EHT1 

EDT1 

EFT1 

658 

659 

660 

005064 

005066 

005070 

005072 

073612 

074140 

074264 

074354 

.•ERROR 

327 

EMT 327 
EHT1 
EDT1 
EFT1 

661 

662 

663 

005074 

005076 

005100 

005102 


.ERROR 

330 

073624 

074140 

074264 

074354 


EMT330 

EHT1 

EDT1 

EFT1 

664 

665 

666 

005104 

005106 

005110 

005112 

073634 

074140 

074264 

074354 

.•ERROR 

331 

EMT331 

EHT1 

EDT1 

EFT1 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


SEQ 003 


667 


sco 005a 
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ERROR POINTER TABLE 



668 

669 

005114 

005116 

005120 

005122 


.•ERROR 

332 

073646 

074140 

074264 

074354 


ENT332 

EHT1 

EDT1 

EFT1 

670 

671 

672 

005124 

005126 

005130 

005132 

073660 

074140 

074264 

074354 

.ERROR 

333 

EMT333 

EHT1 

EDT1 

EFT1 

673 

674 

675 

005134 
005136 
0051 *0 
005142 

073676 

074140 

074264 

074354 

.ERROR 

334 

EMT334 

EHT1 

EDT1 

EFT1 

676 

677 

678 

005144 

005146 

005150 

005152 

073714 

074140 

074264 

074354 

.•ERROR 

335 

EMT335 

EHT1 

EDT1 

EFT1 

679 

680 

681 

005154 

005156 

005160 

005162 


; ERROR 

336 

073734 

074222 

074320 

074410 


EMT336 

EHT336 

EDT336 

EFT336 

682 

683 

684 

005164 

005166 

005170 

005172 


.'ERROR 

337 

073744 

074234 

074330 

074420 


EHT337 

EHT337 

EDT337 

EFT337 

685 

686 

687 

005174 

005176 

005200 

005202 


; ERROR 

340 

073754 

074222 

074320 

^74410 


EMT340 

EHT336 

EDT336 

EFT336 

688 

689 


; ERROR 

341 


PAGE 8-31 

DATA LATE ERROR DURING DATA TRANSFER 

PIP STIL SET AFTER DATA TRANSFER - SKI = 0 

LOST MOL DURING DATA TRANSFER - OPI = 0 

LOST VOLUME VALID DURING DATA TRANSFER - IVC = 0 

DATA READ DOES NOT COMPARE WITH DATA WRITTEN 

WRITE CHECK ERROR NOT DETECTED 

WRITE CHECK ERROR AT UNEXPECTED ADDRESS 

INCORRECT DATA DURING WRITE CHECK ERROR 



PAGE o-3<: 


SEQ OOi 


"JVC" ERROR NOT DETECTED DURING DATA TRANSFER 


"FER" NOT DETECTED DURING DATA TRANSFER 


‘BCE" NOT DETECTED DURING DATA TRANSFER 


‘BSE" NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR HAS DETECTED U/ HC1 SET 


DATA TRANSFER NOT ABORTED U/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - "IVC" = 0 


SEQ 006C 


CZRNfAO RM80 fCTNL PT3 MACRO V04.00 28 
ERROR POINTER TABLE 

005 27* 074070 
005276 074140 
005300 074264 
005302 074354 


-JAN-82 16:49:32 PAGE 8-33 


EMT350 

EHT1 

EDT1 

EFT1 


005304 

005306 

005310 

005312 


074106 

074140 

074264 

074354 


; ERROR 351 


EMT351 

EHT1 

EDT1 

EFT1 


•ATA" 010 NOT SET OURING SEARCH 


005314 

005316 

005320 

005322 


074116 

000000 

000000 

000000 


.ERROR 352 PROGRAM TIMEOUT WHILE TESTING RMLA 

EMT352 

0 

0 

0 


005324 

005326 

005330 

005332 


074122 

074260 

074352 

074440 


.•ERROR 353 LOOK AHEAD TEST FAILS 

EMT353 

EHT353 

EDT353 

EFT353 


005334 

005336 

005340 

005342 


074132 

074140 

074264 

074354 


.•ERROR 354 BSE SHOULD NOT BE SET 

EMT354 

EHT1 

EDT1 

EFT1 


;PUT ERROR TABLE HERE 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 


.S8TTL ERROR TABLE USAGE 

THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
NUMBER, I.E., 

EMT - ERROR MESSAGE TABLE ADDRESS 
EHT - ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 
EFT - ERROR FORMAT TABLE ADDRESS 

THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRING* 

FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO. THERE IS 
NO MESSAGE TO BE TYPED FOR THE ERROR. 

SIMILARLY. THE EHT. EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 
OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
DATA. HOWEVER. EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
MUST ALSO HAVE A FORMAT. 

IN SUMMARY 

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
OF MESSAGE STRINGS, HEADERS. DATA OR FORMAT. 



SEQ 0062 
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ERROR TABLE USAGE 


3 005344 

4 005346 

5 005350 

6 005352 
005356 

005416 

7 005416 

8 005420 

9 005422 
10 

11 

12 

13 

14 005424 

15 005432 

16 

17 005434 

18 005440 

19 005442 

20 0C5446 

21 005450 

22 
23 

005452 

005456 

005460 

005464 

005466 

005472 

005500 

005506 

005514 

005522 

005530 

005536 

005544 

005552 

005560 

005564 

005570 

005576 

005604 


005612 

005616 

005624 

005632 

005640 

005646 


011600 

005740 

022626 

104401 

000417 


Cl 0046 
104402 
000240 


012737 

000402 

005037 

000240 

005227 

001375 

000005 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737 

012737 

012737 


013746 

012737 

012737 

012737 

022777 

001012 


005360 


177777 001330 


001330 


000000 


001114 

001154 

001100 

061470 

000340 

062250 

000340 

065254 

000340 

065362 

000340 

033614 

001206 

001210 

000001 

005576 

005604 


000004 

005652 

177570 

177570 

177777 


.-THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMG: MOV 
TST 


ii\ \? : 


CMP 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOC 

NOP 


<SP), RO .-SAVE PC WHERE THE TIME OUT OCCURED 

-<R05 ; ADJUST PC -2 

<SP)*.(SP>* .-RESTORE STACK POINTER 

.65S ;;TYPE ASCIZ STRING 

64$ :;GET OVER THE ASCIZ 

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 


RO.-(SP) 


•S8TTL START OF PROGRAM 


START1: MOV 
BR 

START: CLR 
START2: NOP 
INC 
BNE 
RESET 


#-1 , CHGADR 
START2 

CHGADR 


.-SETUP FOR TYPING OUT PC 

;PUT 'HALT(O) ' INSTRUCTION HERE IF YOU WISH 
; TO STOP ON UNEXPECTED TIMEOUT. 


.-CHANGE RH/RM BUS ADDRESS 


;N0 CHANGE IN ADDRESS 

;TTY LOOP, WAIT FOR INCREMENT 
;0F WORD 

.-RESET THE WORLD 


.S8TTL INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS ($CHTAG> AREA 


000020 

000022 

000030 

000032 

000034 

000036 

000024 

000026 

033606 


001131 

001122 

001124 


000004 

001154 

001156 

173306 


MOV 

CLR 

CMP 

BNE 

MOV 

;; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
H0V8 
MOV 
MOV 


#$CMTAG,R6 .-.-FIRST LOCATION TO BE CLEARED 
<R6> + ;; CLEAR MEMORY LOCATION 

#SWR,R6 .-.DONE? 

.-6 .-.LOOP BACK IF NO 

ASTACK.SP ;; SETUP THE STACK POINTER 

FEW VECTORS 

#$SCOPE,a#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340,MIOTVEC*2 ; .-LEVEL 7 

fSERROR ,3#EMT VE C ; ; EMT VECTOR FOR ERROR ROUTINE 
#340,a#EMTVEC+2 .-.‘LEVEL 7 
fSTRAP.WTRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340.B#TRAPVEC*2; LEVEL 7 
#$PWRDN.B*PWRVEC ; .-POWER FAILURE VECTOR 
#340,a#PWRVEC*2 ;. -LEVEL 7 

$ENDCT,$EOPCT ;; SETUP END-OF -PROGRAM COUNTER 
STINES .-.-INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ;. -CLEAR THE ESCAPE ON ERROR ADDRESS 

#1 .SERMAX ;. -ALLOW ONE ERROR PER TEST 

#. .SLPADR ;; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#. ,$LPERR ;. -SETUP THE ERROR LOOP ADDRESS 


.-.-SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 


005650 000403 


I", SETUP FOR A SOFTWARE SWITCH REGISTER. 
B#ERRVEC,-(SP) .-.-SAVE ERROR VECTOR 
#64$,a#El*RVEC ;;SET UP ERROR VECTOR 
#DSWfi.SWR ; .-SETUP FOR A HARDWARE SWICH REGISTER 

#DDISP, DISPLAY .-.-AND A HARDWARE DISPLAY REGISTER 
/M.iSWR .-.-TRY TO REFERENCE HARDWARE SWR 

66$ ;; BRANCH IF NO TIMEOUT TRAP OCCURRED 

.-.-AND THE HARDWARE SWR IS NOT = -1 
65$ ;;8RANCH IF NO TIMEOUT 
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INITIALIZE THE COMMON TA6S 


005652 012716 005660 64$ 

005656 000002 

005660 012737 000176 001154 65$ 

005666 012737 000174 001156 

005674 012637 000004 66$ 


005700 

005704 

005712 

005714 

005722 

24 

25 005722 

26 005730 

27 

28 

005736 

005742 

005744 

005752 

005754 

005760 

006032 

006032 

006036 

006040 

006046 

006050 

006056 

006060 

006062 

006064 

006072 

29 

30 

31 

32 

33 006072 

34 006076 

35 006104 

36 006106 

37 006114 

38 006122 

39 006124 

40 006130 

41 006134 

42 006136 
006142 

006170 

43 006170 

44 006172 

45 006176 

46 006200 


005037 

132737 

001403 

012737 


012737 

012737 


005227 

001033 

022737 

001427 

104401 

000424 


005737 

001012 

123727 

001406 

023727 

001005 

104407 

000403 

112737 


005037 

122737 

001121 

013737 

122737 

103002 

105037 

005737 

001425 

104401 

000412 


005046 

113716 

104403 

001 


001230 

000200 


001243 


001244 001154 


005344 

000300 


177777 


C00004 

000006 


#65$, (SP) 


; ; SET UP FOR TRAP RETURN 
;; POINT TO SOFTWARE SWR 


#SWREG,SUR ; .'POINT TO SOFTWARE SW 

#DISPREG, DISPLAY 

(SP) + .i#ERRVEC ; .'RESTORE ERROR VECTOR 


SPASS 

#APTSI7E,$ENVM 

67$ 

#$SWREG,SWR 


;; CLEAR PASS COUNT 
.-.'TEST USER SIZE UNDER APT 
;; YES, USE NON-APT SWITCH 
;;NO,USE APT SWITCH REGISTER 


.•SETUP "TIMEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV #8ADTM0,ERRVEC ; SETUP FOR UNEXPECTED TIMEOUT 

MOV 0PR6.ERRVEC+2 .'LEVEL 6 


.SBTTL 

.'.'TYPE 


033756 000042 
005762 


000042 

001242 000001 
001154 000176 


000001 001150 


001332 

000016 000041 

000040 001332 
000007 001332 

001332 

000042 

006144 


001332 


;; 69$: 
66 $: 

. SBTTL 


TYPE PROGRAM NAME 

THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 ; .-FIRST TIME 

BNE 68$ ;; BRANCH IF 

CMP #$ENDAD,i#42 ;;ACT-11? 

BEO 68$ .'.'BRANCH IF 

TYPE ,69$ .'.'TYPE ASC 11 

BR 68$ ;;GET OVER T 

.ASCI2 <CRLF>iCZRNFAO - RM80 FUNCTI 


.•FIRST TIME? 

.-BRANCH IF NO 
;ACT-1 1 ? 

; BRANCH IF YES 

.-TYPE ASCIZ STRING 

.-GET OVER THE ASCIZ 

RM80 FUNCTIONAL TEST, PT 3a<CRLF> 


GET VALUE FOR SOFTWARE SWITCH REGISTER 

TST a#42 ;;ARE WE RUNNING UNDER XXDP/ACT? 

BNE 70$ .-.‘BRANCH IF YES 

CMP8 $ENV,#1 ;;ARE WE RUNNING UNDER APT? 

BEO 70$ ; .-BRANCH IF YES 

CMP SWR,#SWREG .-.‘SOFTWARE SWITCH REG SELECTED? 

BNE 71$ .-.-BRANCH IF NO 

GTSWR ; ; GET SOFT-SWR SETTINGS 

BR 71$ 

MOVB #1.$AUT0B ;;SET AUTO-MODE INDICATOR 


.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 

.-PAPER TAPE (MANUAL). ACT11 , XXDP CHAIN OR DUMP 

CLR XXDP .-CLEAR 'XXDP’ LOAD DEVICE STORAGE 

CFV^B #16.8041 ; LOADED FROM AN RM80 ? 

BNE 3$ ;BR IF NOT 

MOV a#40.XXDP ;GET DEVICE INDICATOR AND NUMBER 

CMPB #7. XXDP ;IS IT A VALID NUMBER ? 

BHIS 1$ ;YES 

CLRB XXDP ;N0. DEFAULT TO DRIVE 0 

1$: TST 8#42 .-CHAIN MODE OR ACT11 AUTO ACCEPT ? 

BEO 2$ ;BR IF NEITHER 

TYPE .73$ .-.-TYPE ASCIZ STRING 

BR ?2$ ;;GET OVER THE ASCIZ 

• • 73$ : .ASCIZ <CRLF>/NOT TESTING DRIVE / 

75$. 

CLR -<SP> .-CLEAR WORD ON STACK 

MOVB XXDP, (SP) ;6ET DRIVE ADDRESS 

TYPOS .'TYPE THE ADDRESS 

.BYTE 1 .‘ONLY 1 CHARACTER 
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£0 0064 

GET VALUE FOR 

50F TUARE 

SWITCH REGISTER 





47 006201 

000 




.BYTE 

0 

.■SUPRESS LEADING ZEROS 

48 006202 

104401 

001217 



TYPE 

.JCRLF 

; CR-LF 

49 006206 

50 

000460 




BR 

3$ 

.’GET NUMBER OF DRIVES 

51 006210 

005227 

177777 


2$: 

INC 

#-1 

.•FIRST TIME THRU HERE ? 

52 006214 

001055 




BNE 

3$ 

;N0 

53 006216 

104401 

006224 



TYPE 

.75$ 

;;TYPE ASCIZ STRING 

006222 

000410 




BR 

U% 

;;GET OVER THE ASCIZ 





;;75S: 

.ASCIZ 

<CRLF>/TO TEST 

DRIVE / 

006244 




>4$: 




| 54 006244 

005046 




CLR 

-(SP) 

.•CLEAR WORD ON STACK 

55 006246 

113716 

001332 



MOVB 

XXDP.(SP) 

.-GET DRIVE ADDRESS 

56 006252 

104403 




TYPOS 


.-TYPE DRIVE ADDRESS 

57 006254 

001 




.BYTE 

1 

.-ONLY 1 CHARACTER 

58 006255 

000 




.BYTE 

0 

.‘SUPRESS LEADING ZEROS 

59 006256 

104401 

006264 



TYPE 

.76$ 

;;TYPE ASCIZ STRING 

006262 

000432 




BR 

5 $ 

;;GET OVER THE ASCIZ 





;;76$: 

.ASCIZ 

/.HALT PROGRAM 

, CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 

006350 

4? 




51 : 




OJ 

64 




.•CHECK 

FOR AUTO MODE OR STANDALONE MODE 

65 006350 

005737 

000042 



TST 

8*42 

.•RUNNING IN AUTO MODE ? 

66 006354 

001537 




BEQ 

STANDALONE 

;8R IF NO 

67 006356 

012737 

000377 

001300 


MOV 

*377.$DEVM 

;SET DEVICE MAP FOR ALL DRIVES 

oo 

69 




.’PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 

70 006364 




XSIZ: 




71 006364 

132737 

000200 

001243 


BITS 

*SIT7.$ENVM 

.‘SIZING ALLOWED ? 

72 006372 

73 

001124 




BNE 

12$ 

;N0 

74 006374 

005001 




CLR 

R1 

.•START FROM DRIVE 0 

75 006376 

013700 

001276 



MOV 

SBASE.RO 

.’LOAD THE BASE ADDRESS 

76 006402 

77 

104401 

067044 



TYPE 

.SVSTAT 

.-TYPE ’UNIT STATUS:' 

78 006406 

136137 

067344 

001300 

1$: 

BITS 

ATNTBL(RI) ,$DEVM ;IS DEVICE PRESENT IN MAP ? 

79 006414 

001507 




BEG 

11$ 

;BR IF NO 

80 006416 

104401 

001217 



TYPE 

,$CRLF 

; CR-LF 

81 006422 

010146 




MOV 

R1 .-(SP) 

;;SAVE R1 FOR TYPEOUT 

006424 

104403 




TYPOS 


;;G0 TYPE— OCTAL ASCII 

006426 

002 




.BYTE 

2 

;;TYPE 2 DIGIT(S) 

006427 

000 




.BYTE 

0 

;; SUPPRESS LEADING ZEROS 

82 006430 

83 

104401 

067236 



TYPE 

.8LNKS4 

.-TYPE 4 BLANKS 

84 006434 

012760 

000040 

000010 


MOV 

#CLR.RMCS2(R0) 

.‘CLEAR MASS BUS 

85 006442 

010160 

000010 



MOV 

R1.RMCS2(R0> 

.‘LOAD THE DRIVE ADDRESS 

86 006446 

005760 

000012 



TST 

RMDS(RO) 

.‘ACCESS DRIVE REGISTER 

87 006452 

032760 

010000 

000010 


BIT 

#NED.RMCS2(R0) 

;IS DRIVE PRESENT ? 

88 006460 

001027 




BNE 

3$ 

;BR IF NO 

89 006462 

032760 

004000 

000000 


BIT 

#DVA.RMCS1(R0) 

;IS DRIVE AVAILABLE ? 

90 006470 

001426 




BEO 

4$ 

;8R IF NO 

91 006472 

012737 

067062 

006632 


MOV 

#SRM80.10$ 

.•ASSUME RM80 DEVICE 

92 006500 

022760 

020026 

000026 


CMP 

#20026.RMDT(R0) 

.-SINGLE PORT RM80 ? 

93 006506 

001407 




BEO 

2$ 

;BR IF YES 

94 006510 

022760 

024026 

000026 


CMP 

A24026.RMDT (RO) 

.•DUAL PORT RM80 ? 

95 006516 

001403 




BEO 

2$ 

;BR IF YES 

96 006520 

104401 

067067 



TYPE 

.NOTRM 

.‘DRIVE NOT AN RM80 

9 7 006524 

000412 




BR 

$ 

.‘CHECK NEXT DRIVE 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


~EQ 0065 


98 006526 

99 006534 

100 006536 

101 

102 006540 

103 006544 

104 

105 006546 

106 006552 

107 006560 

108 

109 006562 

110 006566 

111 006574 

112 

113 006576 

114 006602 

115 006604 

116 006610 

117 006612 

118 006616 

119 

120 006620 

121 006624 

122 006630 

123 006632 

124 

125 006634 

126 006636 

127 006642 

128 

129 006644 

130 006650 


032760 

001412 

000417 

104401 

000402 

104401 

146137 

000425 

104401 

146137 

000413 

005737 

001406 

123701 

001003 

104401 

000755 

104401 

104401 

104401 

000000 

005201 

020127 

003661 

104401 

000137 


010000 

000012 

2S: 

BIT 

#MOL.RMDS(R0) 


BEQ 

6 $ 




BR 

7$ 

067121 


3$: 

TYPE 

.NOTPRS 

5 $ 



BR 

067136 


4$: 

TYPE 

.NOTAVL 

067344 

001300 

5$: 

BICB 

ATNTBL(RI) ,$DEVM 



BR 

11$ 

067155 


6 $: 

TYPE 

.UNTOFF 

067344 

001300 


BICB 

ATNTBL(R1).$DEVM 


BR 

9$ 

001332 


7$: 

TST 

XXDP 



BEQ 

8 $ 

001332 



CMP8 

XXDP.R1 



BNE 

8 $ 

067104 



TYPE 

.LODEV 

5 $ 



BR 

067166 


8S: 

TYPE 

.UNTON 

067240 


9S: 

TYPE 

.8LNKS2 


10$: 

TYPE 

.WORD 

0 




11$: 

INC 

R1 

000007 



CMP 

R1.#7 



BLE 

1$ 

001217 


12$: 

TYPE 

,$CRLF 

007332 



JMP 

CMNSTART 


DRIVE NOT PRESENT 
CHECK NEXT DRIVE 

DRIVE NOT AVAILABLE 

;CLEAR DEVICE FROM BIT MAP 
CHECK NEXT DRIVE 

DRIVE OFFLINE 

;CLEAR DEVICE FROM BIT MAP 
PRINT DRIVE TYPE 

LOADED FROM RM80 ? 

NO 

IS THIS THE DRIVE ? 

BR IF NO 

DRIVE IS LOAD DEVICE 


.•DRIVE ONLINE 
;TYPE 2 BLANKS 
; PRINT DRIVE TYPE 
; MESSAGE ADDRESS HERE 

.•INCREMENT THE DRIVE ADDRESS 
.-ALL DRIVES ARE CHECKED ? 
.BRANCH IF NOT 

.-CR-LF 

.-JUMP TO COMMON START 


1 
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006654 

006654 

006660 

006664 


1 
? 

3 

4 

5 

6 

7 

8 
9 

10 

11 006666 

12 0066 72 

13 006674 

14 006700 

15 006706 

16 006710 

17 006714 

18 006720 

19 006722 

20 006726 

21 006732 

22 

23 

24 006734 

25 006734 

26 006740 

27 006742 

28 006746 

29 

30 

31 006752 

32 006752 

33 006756 
006762 

34 006764 

35 006770 

36 006772 

37 006776 

38 007000 

39 007006 

40 007010 

41 007014 

42 007016 

43 

44 007024 

45 007030 

46 007032 

47 007036 

48 007040 

49 007044 

50 007046 

51 007052 

52 007054 

53 007062 

54 007064 

55 007070 

56 007072 


.S8TTL STANDALONE INPUT ROUTINES 


004737 

005227 

001023 


104401 
1044-' 1 
0126 
123727 
001005 
104401 
104401 
000414 
104401 
104401 
000407 


005737 

001457 

005037 

104401 


104401 

013746 

104402 

104401 

104413 

012637 

001412 

022737 

101403 

104401 

000756 

013737 

104401 

C05046 

113716 

104402 

104401 

104413 

012637 

001412 

022737 

101003 

104401 

000755 

113737 


063670 

177777 

.6M10 

001 ,6 

0C1 1 76 

001176 

104254 

067232 

001217 

001330 

001330 

001217 

066521 

001276 

067240 

001176 

160000 

066531 

001176 

066573 

001272 

067240 

001176 

001000 

066602 

001176 


STANDALONE: 

JSR 

INC 

BNE 


PC.STKINT .-INITIALIZE CONSOLE 

#-1 .-FIRST TINE THRU HERE ? 

2$ ;8R IF NO 


.-SEE IF OPERATOR WANTS HELP TEXT 
.NSHELP 


000131 


IS: 


TYPE 

RDCHR 

NOV 

CNP8 

BNE 

TYPE 

TYPE 

BR 

TYPE 

TYPE 

BR 


(SP)+,STHP1 

STNPl.f'Y 

1$ 

,$TNP1 

.HELP 

it 

.N 

.SCRLF 

is 


WANT HELP ? 

GET RESPONSE 

SAVE AND ECHO RESPONSE 

WAS IT A YES RESPONSE ? 

NO 

TYPE ’Y’ 

YES - TYPE HELP TEXT 

.-TYPE 'N* 

.-CR-LF 


.-SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 

H: 


TST 

8E0 

CLR 

TYPE 


CHGADR 

7S 

CHGADR 

.SCRLF 


CHANGE RH/RN BUS ADDRESS ? 
BR IF NO 

NO CHANGE NEXT TINE 
CR-LF 


001176 

001276 


.-DIALOGUE TO CHANGE THE UNIBUS ADDRESS. VECTOR ADDRESS AND INTERRUP T PRIORITY 
3S* 

.CNSL01 .-TYPE CURRENT BUS ADDRESS 

SBASE.-(SP) .-.-SAVE 86ASE FOR TYPEOUT 

;;60 TYPE— OCTAl ASCII (ALL DIGITS) 

.BLNKS2 .-TYPE 2 BLANKS 

;GET NEW BUS ADDRESS 
CARRIAGE RETURN ? 

YES-SKIP TO NEXT ENTRY 
BASE ADDRESS IN I/O PAGE ? 

YES 

TYPE WARNING MESSAGE 
TRY AGAIN 

; STORE NEW BUS ADDRESS 


4S: 

5$: 


TYPE 

NOV 

TYPOC 

TYPE 

RDOCT 

HO V 

8EQ 

CMP 

8L0S 

TYPE 

BR 

MOV 


<SP)+,$THP1 

5$ 

#1 60000. STNF1 
4$ 

.CNSL02 

is 

STMP1 . SBASE 


001176 

001272 


6 $: 


TYPE 

CLR 

MOVB 

TYPOC 

TYPE 

RDOCT 

MOV 

BEO 

CMP 

BHI 

TYPE 

BR 

MOVB 


.CNSL03 

-(SP> 

SVECTI.(SP) 

.BLNKS2 

(SPM.STMP1 

7$ 

#1000.STHP1 

6$ 

.CNSL04 

5$ 

JTMP1.SVECT1 


;GET CURRENT VECTOR ADDRESS 

TYPE 2 BLANKS 

GET NEW VECTOR ADDRESS 

CARRIAGE RETURN? 

YES-SKIP TO NEXT ENTRY 
VECTOR ADDRESS < 1000 ? 
YES' ' 

TYPE WARNING MESSAGE 
RETRY 

STORE NEW VECTOR ADDRESS 


L 


SCO 006 
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57 

58 





: DIALOGUE TC 

INPUT DEVICE NUHBERS 

59 

007100 

005227 

177777 


7S: 

INC 

#-1 

60 

007104 

001002 




BNE 

8$ 

61 

007106 

104401 

066636 



TYPE 

.CNSL07 

62 

007112 

104401 

001217 


8$: 

TYPE 

-$CRLF 

63 

007116 

005037 

001300 


9$: 

CLR 

Jdevh 

64 

007122 

104401 

067022 



TYPE 

,HSDRVS 

65 

0^7126 

104411 




RDCHR 


66 

007130 

012637 

001 1 76 



HOV 

<SP)+,$THP1 

67 

007134 

023727 

001176 

000101 


CMP 

$THP1 ,#'A 

68 

007142 

001007 




BNE 

10$ 

69 

007144 

104401 

066074 



TYPE 

,ALL 

70 

007150 

012737 

000377 

001300 


HOV 

#377,$DEVH 

71 

007156 

000137 

006364 



JMP 

XSIZ 

re 

73 

007162 

023727 

001176 

000015 

10S: 

CNP 

$THP1,#CR 

74 

007170 

001436 




BEQ 

12$ 

75 

007172 

104401 

001176 



TYPE 

X s ™? 1 

76 

007176 

023727 

001176 

000060 


CHP 

§TW>1,#'0 

77 

007204 

002430 




BLT 

12$ 

78 

007206 

023727 

001176 

000067 


CHP 

$THP1 .0*7 

79 

007214 

003427 




BLE 

13$ 

80 

fil 

007216 

000423 




BR 

12$ 

Ol 

82 

007220 

104411 



11$: 

RDCHR 


83 

007222 

012637 

001176 



HOV 

(SP)+,$T«P1 

84 

007226 

023727 

001176 

000015 


CHP 

$THP1 ,#CR 

85 

007234 

001432 




BEO 

14$ 

86 

007236 

1C4401 

066105 



TYPE 

,COHHA 

87 

007242 

104401 

001176 



TYPE 


88 

007246 

023727 

001176 

000060 


CHP 

iTHPI ,10 

89 

007254 

002404 




BLT 

12$ 

90 

007256 

023727 

001176 

000067 


CHP 

$THP1,#’7 

91 

007264 

003403 




BLE 

13$ 

92 

007266 

104401 

067000 


12$: 

TYPE 

.CNSL08 

93 

Q/ 

007272 

000711 




BR 

9$ 

yn 

95 

007274 

013701 

001176 


13$: 

HOV 

$THP1 ,R1 

96 

007300 

042701 

177770 



BIC 

#‘C7,R1 

97 

007304 

156137 

067344 

001300 


BISB 

ATNTBL(RI) ,$DEVH 

98 

007312 

122737 

000377 

001300 


CHP8 

#377. $DEVH 

99 

007320 

101337 




BHI 

11$ 

100 

007322 

104401 

001217 


14$: 

TYPE 

,$CRLF 

101 

007326 

000137 

006364 



JHP 

XSIZ 


FIRST TINE THRU ? 

BR IF NO 

TYPE INPUT INSTRUCTIONS 
CR-LF 

CLEAR DEVICE HAP 
TYPE ’DRIVE (S): * 

GET RESPONSE 
IS INPUT "A" ? 

NO 

YES, TYPE ’•ALL" AND GO 

SET DEVICE HAP FOR ALL DRIVES 

AUTO SIZE. 

CARRIAGE RETURN ? 

YES 

ECHO RESPONSE 
NUHBER < 0 ? 

YES 

NUHBER > 7 ? 

NO 

ILLEGAL INPUT 


GET RESPONSE 
CARRIAGE RETURN ? 

YES 

TYPE ' 

ECHO RESPONSE 
NUHBER < 0 ? 

YES 

NUHBER > 7 ? 

NO 

TYPE ’’ 7ILLEGAL INPUT" 
RETRY 

R1 = DRIVE NUHBER 

;SET DEVICE IN HAP 

DONE ? 

NO 

CR-LF 

GO SIZE DEVICES 



5EQ 0061 


MAP 

.-TYPE 'DRIVE(S) TO BE TESTED 1 
;R0 = DEVICE MAP 
;BR IF DRIVES TO TEST 
.•TYPE \ ’ 

.-TYPE ’NONE' 

;R1 r ADDRESS OF FIRST ENTPY IN OUE 

.•INITIALIZE ENTRY POINTER 

;R2 = DEVICE POINTER 

;R3 = DEVICE NUMBER 

;IS THIS DEVICE IN MAP ? 

;N0 !! 

.TYPE *. ' 

;VES - ENTER DEVICE NUMBER IN QUE 
.-.-SAVE R3 FOR TYPEOUT 
; ; 60 TYPE— OCTAL ASCII 
.-.TYPE 1 DIGIT(S) 

; ; SUPPRESS LEADING ZEROS 
I ) .-ENTER ATTENTION BIT IN QUE 
.•ADVANCE ENTRY POINTER 
.•ADVANCE DFVICE POINTER 
.-DONE ALL DEVICES ? 

;YES 

.-ADVANCE DEVICE NUMBER 
.•ENTER NEXT DEVICE 
TERMINATE TEST OUE 
; CR-LF 


;SEE IF CLOCK PRESENT 
; YES - CLOCK IS PRESENT 
.-.-TYPE ASCIZ STRING 
;:GET OVER THE ASCIZ 
OR *P' CLOCK/ 

.-ANY MONITOR PRESENT ? 

;8R IF YES 

.-JUMP TO START 

; RETURN CONTROL TO MONITOR 


READY TO START TEST 
ANY DRIVES IN HAP ? 

BR IF YES 

ANY MONITOR PRESENT ? 

BR IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 

RESET TEST NUMBER 

INITIALIZE NUMBER OF ITERATIONS 

CLEAR CONTROL-C FLAG 

CLEAR MEDIA ENABLE 

INITIALIZE TTY 

.-PUT NEW PS ON STACK 

;PUT NEW PC ON STACK 


SEQ 0069 
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007606 

007610 

51 007610 

52 

54 007616 

55 007622 

56 007630 

57 007636 

58 

59 

60 007644 

61 007650 

62 007654 

007660 

007662 

007663 

63 007664 

64 007666 

65 007670 

66 007672 

67 007674 


000002 

117737 


013700 

012760 

113760 

012737 


104401 

104401 

013746 

104403 

002 

000 

005004 

005304 

001376 

005304 

001376 


171652 001234 


001276 

000040 000010 
001234 000010 
006400 001334 


001217 

067036 

001234 


64$: 


RTI ;;P0P NEW PC AND PS 

MOVB 3TSTQUE.SUNIT ;LOAD DRIVE NUMBER 


.•CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND SET LAST TRACK ADDRESS 
MOV SBASE.RO ;R0 = UNIBUS ADDRESS 

MOV #CLR,RMCS2(R0) .-CLEAR MASSBUS _ . 

MOVB $UNlf,RMCS2(R0) iSELECT DEVICE UNDER TEST ^ 

MOV 0TA8 ! TA4 ! TA1 , LSTAk ;SET LAST TRACK = 13. 

.-TYPE DRIVE NUMBER TO BE TESTED ($UNIT) 


TYPE 
TYPE 
MOV 

TYPOS 

.BYTE 

.BYTE 

CLR 

DEC 

BNE 

DEC 

BNE 


.SCRLF 
.MSGDRV 
SUNIT.-(SP) 


2 

0 

R4 

R4 

.-2 

R4 

.-2 


.-CR-LF 

.-TYPE 'DRIVE* 

.-.•SAVE SUNIT FOR TYPEOUT 
;;TYPE DRIVE NUMBER 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 2 DIGIT(S) 

; ^SUPPRESS LEADING ZEROS 
jfHESE TWO LOOPS ARE ADDED TO 
.•WAIT FOR TTY 
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SEQ 0070 


1 







? 





; ; ***** 
.-•TEST 

1 


007676 

007676 

000004 



* • 

TST1 : 

SCOPE 


007700 

000240 

012706 




NOP 


007702 

001100 



MOV 


007706 

013700 

001276 



MOV 


007712 

013701 

001466 



MOV 

x 

007716 

012737 

000001 

001226 


MOV 

A 

007724 

005001 




CLR 

5 

007726 

013746 

000004 



MOV 


007732 

013/46 

000006 



MOV 

6 

007736 

012737 

010040 

000004 


MOV 

7 

8 
9 

007744 

012737 

000300 

000006 


MOV 

007752 

110160 

000001 



wove 

10 

007756 

010160 

000002 



MOV 

11 

007762 

016002 

000002 



MOV 

12 

007766 

010160 

000004 



MOV 

13 

007772 

016002 




MOV 

14 

007776 

016046 

000010 



MOV 

15 

010002 

010160 

000010 



MOV 

16 

010006 

016002 

000010 



my 

17 

010012 

012660 

000010 



MOV 

18 

010016 

010160 

000022 



NOV 

19 

010022 

016002 

000022 



MOV 

20 

010026 

012637 

■'X'N'I-i 



MOV 

010032 

012637 

000004 



MOV 

21 

22 

23 

010036 

000417 




BR 

010040 

022626 



IS: 

CMP 

24 

010042 

012637 

000006 



MOV 

010046 

012637 

000004 



NOV 

25 

010052 

104110 




EMT 

26 

010054 

005737 

000042 



TST 

27 

010060 

001002 




BNE 

28 

010062 

000137 

005424 



JMP 

29 

010066 

005037 

001300 


2S: 

CLR 

30 

010072 

000137 

033746 



JMP 

31 

010076 




3S: 


32 







33 












.-•TEST 

2 


010076 

010076 

000004 



;;**«*! 

TST2: 

SCOPE 


010100 

010102 

000240 

012706 

001100 



NOP 

MOV 


010106 

013700 

001276 



NOV 


010112 

01 3701 
012737 

001466 



NOV 

XJ. 

010116 

000002 

001226 


MOV 


34 


35 ; ;**«**» 

36 ;LCOP Ml 


CONTROLLER ACCESS TEST 


fSTACK.SP 

SBASE.RO 

TSTQUE.R1 

fl.STESTN 

R1 

ERRVEC. -(SP> 
ERRVEC*2.-(SP> 
#1S. ERRVEC 
#PR6. ERRVEC +2 

R1.RMCS1+KR0) 

R1.RMUCCR0) 

RMWC(RO) ,R2 

RI.RNBA(RO) 

RNBA(RO) f R2 

RNCS2(R0),-(SP) 

R1 ,RNCS2(R0) 

RMCS2(R0),R2 

(SP)+,R«CS2CR0) 

R1 .RMDB(RO) 

RNPB<R0).R2 

(SP)+,ERRVEC*2 

(SPH, ERRVEC 

3$ 


CSPH.CSPH 
(SPI+.ERRVEC+2 
<SP>*. ERRVEC 
110 

a #42 
2 S 

START1 

SDEVN 

J6ET42 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC *2 ON STACK 


.‘MOVE HI BYTE TO RMCS1 
.-MOVE WORD COUNT REGISTER 

.‘MOVE BUS ADDRESS REGISTER 

.‘.’PUSH RMCS2(R0> ON STACK 
.‘MOVE CONTROL STATUS REGISTER 

;;POP STACK INTO RMCS2(R0) 
.‘MOVE DATA BUFFER 

;;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 
;N0 BUS TIMEOUT OCCURRED 

.‘ADJUST STACK 

..POP STACK INTO ERRVEC*2 
;;POP STACK INTO ERRVEC 

.‘STAND ALONE NODE ? 

‘NO* 1 

; YES-60 GET SBASE 
.FUDGE NO DRIVES IN HAP 
.‘RETURN CONTROL TO MONITOR 


WRITE. READ ZEROS 


.SCOPE CALL 
.•START OF TEST 

fSTACK.SP .INITIALIZE STACK POINTER 

S6ASE.R0 ;R0 = UNIBUS ADDRESS 

TST0U§.R1 ;(R1) = DEVICE BEING TESTED 

02.STESTN ;;SET TEST NUMBER IN APT NAIL BOX 


FORMAT.WRITE.READ 
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SCO 0071 


37 

38 010124 

39 

40 

41 010124 
010130 


004737 

154130 


034032 


1 $: 

.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 



010132 

000404 



BR 

2$ 


010134 

000240 



NOP 



010136 

104000 



EMT 

25$ 

42 

43 

010140 

000137 

011104 


JMP 





.LOAD PARAMETERS AND GENERATE 1 

44 

010144 




2$: 

#559. .RMDCO 

45 

010144 

012737 

001057 

001446 

MOV 

46 

010152 

012737 

001000 

001420 

MOV 

#TA2.RMDA0 

47 

010160 

012737 

104254 

001416 

MOV 

#8UF0NE,RMBA0 

48 

010166 

012737 

r# 7376 

001414 

MOV 

#-258. .RMWCO 

49 

010174 

012737 

010000 

001444 

MOV 

#FMT16,RM0F0 

50 

51 

52 

010202 

012737 

000063 

001412 

MOV 

#WH! G0.RMCS10 





.•VERIFY THAT 

SECTOR IS NOT BAD 

010210 

004737 

034762 


JSR 

PC .BADSCT 


010214 

000405 



BR 

3$ 


010216 

104401 

066006 


TYPE 

.SCTMS6 


010222 

104000 



EMT 



010224 

000137 

011104 


JMP 

25$ 

53 

010230 




3$: 


54 

010230 

012737 

067456 

oo 

oo 

O' O' 

MOV 

#2ER0S,$TMP0 

55 

010236 

012737 

000001 

MOV 

#1.$TMP1 

56 

010244 

004737 

037214 


JSR 

PC.6EN8UF 


57 

58 

59 010250 

60 010254 

61 01C260 

62 010264 

63 010270 

64 010274 

65 010300 

66 010304 

67 010310 

68 010310 
010314 
010316 
010320 
010322 

69 010326 

70 

71 

010326 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '•SKI'* OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


CYLINDER * 559. 

TRACK = 2, SECTOR = 0 
BUS ADDRESS 

2 ♦ 256. WORDS (2'S COMP) 

16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 


.-CALL BAD SECTOR MODULE 

;G0 TO 3$ IF NO ERROR 

.'TYPE BAD SECTOR MESSAGE 

.'ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 25$ IF ERROR 


STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 

040360 


011104 


.•SETUP PARAMETERS AND EXCUTE COMMAND 


4$: 


5$: 


MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EHT 

JMP 


#PUTJNX,R2 
#RMDC, (R2>* 
#RHDA.(R2>* 
#RMBA.(R2>+ 
#RMWC.(R2>+ 
#RM0F.(R2>+ 
#RMCS1.(R2>* 
#200, <R2) 

PC. PUT 

5$ 


25$ 


;R2 = BYTE ENTRY POSITION 


.'TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 


004737 040024 


.’SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETS1S SUBROUTINE 


SEC 0072 
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Cl 0332 

74 

75 

76 010336 
010342 
010344 
010346 
01G350 

77 010354 

78 

79 

80 010354 
010360 
01036 ‘ 
010364 
010366 
010370 

81 010374 

82 

83 

84 010374 

85 010402 

86 

87 

38 

89 

90 010404 

91 

92 

93 010404 
010410 


010412 

010414 

010416 

010420 

94 C10424 

95 

96 

97 010424 

98 010424 

99 010432 

100 010440 

101 010446 

102 010452 

103 010456 

104 010462 

105 010466 

106 010472 


040732 

JSR 

PC.TIHOUT 


;G0 GET REGISTER STATUS 

040110 

JSR 

PC. GET 

BR 

NOP 

EMT 

JMP 

6$: 

6$ 

011104 

25$ 


; VERIFY RESULTS 

OF WRITE i 

054166 

JSR 

PC, DTASTS 

BR 

NOP 

EMT 

7$ 


JSR 

PC.a(SP)* 

25i 

011104 

JMP 


004737 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 


012737 010404 001124 
000410 


;G0 TO TIHPUT SUBROUTINE 


60 READ REGISTER(S) WITH GET SUBROUTINE 

GO TC 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 


.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$,$LPERR 

BR 9$ 


;SKIP TO WRITE OPERATION 


;LOOP #2 


WRITE. READ 


004737 034032 
154130 


.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


000404 

000240 

1C4000 

000137 011104 


012737 104260 001416 
012737 177400 001414 
012737 000061 001412 

012702 001555 
112722 000006 
112722 000034 
112722 000032 
112722 000004 
112722 000002 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ‘•SKI*’ OR *f»IP*‘ IS SET 

VERIFY RECAII8RATI0N 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


.-SETUP PARAMETERS ANO EXCUTE COMMAND 
10 $: 

MOV #8UF0NE+4.RMBA0 
MOV #-256. .RMWCO 

MOV #WD!60.RMCS10 

MOV #PUTINX.R2 

MOVB #RMDA,(R2>* 

NOVB #RMDC,<R2)* 

MOVB #RMCF.(R2)+ 

MOVB #RMBA,(R2)+ 

MOVB #RMWC.(R2)+ 


MOVE MEMORY ADDRESS 

CHANGE WORD COUNT 

WRITE DATA COMMAND 

LOAD PUT REGISTER INDEX TABLE 
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107 010476 

108 01050? 

109 

110 010506 
010512 
010514 
010516 
010520 

111 010524 

112 

113 

010524 

114 

115 

010530 

116 

117 

118 010534 
010540 
010542 
010544 
010546 

119 010552 

120 
121 

122 010552 
010556 
010560 
010562 
010564 
010566 

123 010572 
(24 0 1 0572 

010576 

010600 

010602 

010604 

010606 

125 010612 

126 010612 
010616 
010620 
010622 
010624 
010626 

127 010632 

128 

129 

130 010632 

131 010640 

132 

133 

134 

135 

136 01064? 

137 

138 


112722 

112722 

004737 

000404 

000240 

104000 

000137 


ooccoo 

000200 

040360 


011104 


004737 040024 


004737 040732 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

00C137 


040110 


011104 


041126 


011104 

054166 


011104 

041760 


011104 


#RMCS1,(R2H 
#200. (R2H 

PC, PUT 

ni 


; SETUP GET INDEX TABLE TO READ 
JSR PC.GETSTS 

;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 
JSR PC. GET 

BR 12$ 

NOP 

EMT 

JMP 25$ 

12 $: 

; VERIFY RESULTS OF WRITE COMMA 


012737 010642 
000410 


001124 


PC.PRIERR 

13i 


pc.acsp)* 

25$ 

PC.DTA5TS 

14$ 


pc.acsp)* 

25$ 

PC.SECERR 

15$ 


PC.aCSPH 

25$ 


.•CHANGE LOOP ADDRESSES 

MOV #16$.$LPERR 

BR 17$ 


.-LOOP #3 


.•PREPARE DEVICE FOR TEST 


SEQ 0073 


.-TERMINATE TABLE 

GO WRITE REGISTERCS) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 


ALL REGISTERS 
;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S> WITH GET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED SY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 


.•SKIP TO NEXT OPERATION 
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139 010642 
010646 


B8S 


034032 


JSR 

.WORD 


PC.TSTPRP 

154130 


010650 

010652 

010654 

010656 

140 010662 

141 

142 

143 010662 

144 010662 

145 010670 

146 010676 

147 010702 

148 010706 

149 010712 

150 010716 

151 010722 

152 010726 

153 010732 

154 

155 010736 
010742 
010744 
010746 
010750 

156 010754 

157 

158 

010754 

159 

160 

010760 

161 

162 

163 010764 
010770 
010772 
010774 
010776 

164 011002 

165 

166 

167 011002 
011006 
011010 
011012 
0110i4 
011016 

168 011022 


000404 

000240 

104000 

000137 011104 


BR 

NOP 

EMT 

JAP 


17$ 


25$ 


012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


105264 001416 
000071 001412 

001555 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

040360 


011104 


17 $: 

•SETUP PARAMETERS AND EXCUTE COMMAND 

18S ' MOV #8UF TWO+4 .RMBAO 

MOV #RD!60,RMiS10 

MOV IPUTINX.R2 

MOVB #RMDA.(R2>+ 

M0V8 #RM0F,(R2)* 

MOVB #RMDC,(R2)+ 

MOVB #RMBA,(R2)+ 

MOVB #RMUC,(R2)^ 

MOVB #RMCS1,CR2)* 

MOVB #200, (R2) 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE K VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •‘SKr* OR *Y>IP M IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


CHANGE MEMORY ADDRESS 

READ DATA COMMAND 

LOAD PUT REGISTER INDEX TABLE 


19f ; 


JSR 

BR 

NOP 

EMT 

JMP 


PC.PUT 

19i 


25$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROP 

ERROR # DEFINED BY V* T SUBROUTINE 

GO TO 25$ IF ERROR 


004737 040024 


004737 040732 


004737 040110 
000404 
000240 
104000 

000137 011104 


004737 041126 

000405 

000240 

104000 

004736 

000137 011104 


SETUP GET INDEX TABLE TO READ ALL REGISTERS _ r 
JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

GO GET REGISTER STATUS 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 
20$ 


25$ 


20 $: 

.•VERIFY RESULTS OF READ COMMAND 


21 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.PRIERR 

2ii 


pc.acsp)* 

25i 


;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTERS WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 
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SEQ 0075 


169 011022 

004737 

054166 

JSR 

PC.DTASTS 

011026 

000405 


BR 

22$ 

011030 

000240 


NOP 


011032 

104000 


EMT 


011034 

004736 


JSR 

PC ,i(SP)* 

011036 

000137 

011104 

JMP 

25$ 

170 011042 



22$: 


171 011042 

004737 

041760 

JSR 

PC. SECERR 

011046 

000405 


BR 

23$ 

011050 

000240 


NOP 


011052 

104000 


EMT 


011054 

004736 


JSR 

PC,R(SP)+ 

011056 

000137 

011104 

JMP 

25$ 

172 011062 



23$: 


1 75 

174 



;G0 VERIFY DATA 


175 011062 

004737 

037462 

JSR 

PC.CMPBUF 

011066 

104260 


.WORD 

BUFONE+4 

011070 

105264 


.WORD 

BUFTWO+4 

011072 

000404 


BR 

24$ 

011074 

000240 


NOP 


011076 

104000 


FMT 


011100 

000137 

011104 

JMP 

25$ 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR WORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 


;GO COMPARE WRITE, READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
.•STARTING ADDRESS OF READ BUFFER 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY CMPBUF SUBROUTINE 
GO TO 25$ IF ERROR 


176 011104 

177 

178 011104 

179 

180 


011104 

011104 

011106 

011110 

011114 

011120 

011124 

181 

182 

183 

184 

185 011132 

186 

187 

188 011132 
011136 


24$: 

25$: 


000004 


SCOPE 

000240 


NOP 

012706 

001100 

MOV 

013700 

001276 

MOV 

013701 

001466 

MOV 

012737 

000003 001226 

MOV 


•TEST 3 WRITE. WRITE CHECK ZEROS 

• *************************************************************** 
TST3: 

SCOPE CALL 


ASTACK.SP 

S8ASE.R0 

TST0UE.R1 

#3.$TESTN 


START OF TEST 

INITIALIZE STACK POINTER 

RO = UN I BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST HUMBER IN APT MAIL BOX 


.-LOOP #1 
1 $: 


FORMAT, WRITE. WRITE CHECK DATA 


004737 034032 
154130 


.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


011140 000404 
011142 000240 
011144 104000 

011146 000137 012062 


BR 

NOP 

EMT 

JMP 


2 $ 


24 $ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF , *SKI‘' OR •'PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 


SEQ 0076 
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189 

190 

191 011152 

192 011152 
1°3 011160 

194 011166 

195 011174 

196 011202 

197 011210 

198 

199 

011216 

011222 

011224 

011230 


012737 

012737 

012737 

012737 

012737 

012737 


00473/ 

000405 

1044; 

104000 


001057 

001000 

104254 

177376 

010000 

000063 


034762 

066006 


001446 

001420 

001416 

001414 

001444 

001412 


:L0AD PARAMETERS AND GENERATE DATA BUFFER 

H: 

MOV #559. .RMDCO 

MOV JTA2.RMDA0 

MOV fBUFONE.RMBAO 

MOV #-258..RNWCO 

MOV #FNT16,RN0F0 

MOV #WH!G0,RMCS10 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
BUS ADDRESS 

2 ♦ 256. WORDS (2'S COMP) 

16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 


.’VERIFY THAT SECTOR IS NOT BAD 
JSR PC.BADSCT 

BR 3S 

TYPE .SCTMSG 


011232 

000137 

012062 



JMP 

24$ 

200 011236 

201 011236 

012737 

067456 

001174 

3$: 

MOV 

#ZEROS,$TMPO 

202 011244 

012737 

000001 

001176 


NOV 

#1.$TMP1 

203 011252 

204 

205 

004737 

037214 



JSR 

PC.GENBUF 




.•SETUP PARAMETERS AND EX CUTE 

206 011256 

012702 

001555 



MOV 

#PUTINX.R2 

207 011262 

112722 

000034 



NOVB 

#RMDC, (R2>* 

208 011266 

112722 




M0V8 

#RMDA.(R2)+ 

209 011272 

11 2722 




NOVB 

0R MBA.CR2)* 

210 011276 

112722 




MOVB 

#RMWC, (R2>* 

211 011302 

112722 

000032 



MOVE 

#RMOF f (R2)+ 
#RMCS1.(R 2)* 

21 2 011306 

112722 

Ml 



MOVB 

213 011312 

112712 

000200 



MOVB 

0200. (R 2) 

214 011316 

215 011316 

004/37 

040360 


4$: 

JSR 

PC .PUT 

011322 

000404 




BR 

5$ 

011324 

000240 




NOP 


011326 

104000 




EMT 


011330 

000137 

012062 



JMP 

24$ 


CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR 0 DEFINED BY BADSCT SUBROUTINE 

GO TO 24$ IF ERROR 


STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 


;R2 = BYTE FNTRY POSITION 


216 011334 

217 

218 

011334 


.’TERMINATE TABLE 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 24S IF ERROR 


004737 040024 


.’SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


011340 004737 040/32 


.’WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 


011344 

004737 

040110 

JSR 

PC. GET 

011350 

000404 


BR 

6$ 

011352 

000240 


NOP 


011354 

104000 


EMT 


011356 

000137 

012062 

JMP 

24$ 


224 011362 

225 

226 

227 011362 
011366 
011370 
011372 


;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 


004737 

000405 

000240 

104000 


054166 


; VERIFY RESULTS OF WRITE COMMAND 
JSR PC.DTASTS 

BR 7$ 

NOP 

EMT 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE I p ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUT INE 


H 0 


SEfl 0077 
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011374 004736 

011376 000137 012067 

011402 


011402 012737 011412 001124 
011410 000410 


011412 


011412 004737 034032 
011416 154130 


011420 

011422 

011424 

011426 

241 011432 

242 

243 

244 011432 

245 011432 

246 011440 

247 011446 

248 011454 

249 011460 
230 011464 

251 011470 

252 011474 

253 011500 

254 011504 

255 011510 

256 

257 011514 
011520 
011522 
011524 
011526 

258 011532 

259 

260 

011532 


012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

C0024Q 

104000 

000137 


PC,i(SP>* 

24i 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 24$ IF ERROR 


000404 

000240 

104000 

000137 012062 


.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV m.SLPERR 

BR 9$ 


;SKIP TO WRITE OPERATION 


.***********************************»***********•*************** 


.-LOOP 02 


WRITE. WRITE CHECK DATA 


.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'' OR “PIP” IS SET 

VERIFY RECALIBRATION 

GO 10 9$ IF NO ERROR 

rii'URN here if error 

£<V,OR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 


104260 001416 

177400 001414 

000061 001412 

001555 

000006 

000034 

000032 


; SETUP PARAMETERS AND EXCUTE COMMAND 
10 $: 


000200 

040360 


012062 


MOV 

#8UF ONE +4 . RMBAO 

MOV 

J-256..RMWCO 

MOV 

#VD!G0.RMCS10 

MOV 

#PUTINX,R2 

M0V8 

#RMDA» (R2> ♦ 

M0V8 

#RMDC,(R2>* 

MOVB 

#RM0F.(R2>* 

Move 

#RMBA,(R2)+ 

M0V8 

fRMWC. (R2)+ 
#RMCS1,(R2>* 
#200, (R2>* 

MOVB 

MOVB 

JSR 

PC.PUT 

BR 

ni 

NOP 

EMT 

JMP 

24$ 


.•CHANGE MEMORY ADDRESS 
.•CHANGE WORD COUNT 

.•WRITE DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 


.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 


004737 040024 


011536 004737 040732 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


GO GET REGISTER STATUS 
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>EQ 0076 


?65 011542 
011546 
011550 
011552 
011554 

266 011560 

267 

268 

269 011560 
011564 
011566 
011570 
011572 
011574 

270 01 1 600 

271 011600 
011604 
011606 
011610 
011612 
011614 

272 011620 

273 011620 
011624 
011626 
011630 
011632 
011634 

274 011640 

275 

276 

277 011640 

278 011646 

279 

280 

281 

282 

283 011650 

284 

285 

286 011650 
011654 


288 

289 


004737 
000404 
000240 
104000 
000 i 37 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


040110 

012062 

041126 

012062 

054166 

012062 

041760 

012062 


12S: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. GET 

12i 


24$ 


.•VERIFY RESULTS 
JSR 
BR 
NOP 
ENT 
JSR 
JMP 


13 $: 


14$: 


15 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


OF WRITE COMMAND 

PC.PRIERR 

13i 


PC.3(SPH 

24i 

PC.DTASTS 

ui 


pc.a(SP)* 

24i 

PC.SECERR 

I5i 


pc.acsp)* 

24i 


012737 011650 001124 
000410 


.•CHANGE LOOP ADDRESSES 

MOV »16$.$LPERR 

BR 17$ 


GO READ REGISTERS) WITH GET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 


.-SKIP TO NEXT OPERATION 


-A************************************************************** 


.•LOOP #3 
16$: 


WRITE CHECK DATA 


004737 034032 
154130 


.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


011656 

000404 

BR 

17$ 

011660 

000240 

NOP 


011662 

104000 

EMT 


011664 

000137 012062 

JMP 

24$ 

011670 


17$: 




.SETUP PARAMETERS Al 

011670 


18$: 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAI« ABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI" OR *1»IP M IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 


SEO 007 *’ 
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291 011670 

012737 

000051 001412 

NOV 

fWCD.'GO.RNCSlO 

292 011676 

012702 

001555 

NOV 

APUTINX.R2 

293 011702 

112722 

000006 

NOVB 

#P N0A.IR2)* 

294 011706 

112722 

000032 

NOVB 

*RM0F.(R2)+ 

295 011712 

112722 

000034 

NOVB 

#RMDC.(R2>* 

296 011716 

112722 

000004 

NOVB 

#RNBA,(R2)r 

297 011722 

112722 

000002 

NOVB 

#RMWC.(R2>* 

298 011726 

112722 

000000 

NOVB 

#RNCS1.(R2>* 

299 011732 

112712 

000200 

NOVB 

#2C0.(R2) 

300 





301 011736 

004737 

040360 

JSR 

PC .PUT 

011742 

000404 


BR 

19* 

011744 

000240 


NOP 


CH746 

104000 


ENT 


011750 

000137 

012062 

JNP 

24$ 

302 011754 



19$: 


303 





304 



.'SETUP GET INDEX TABLE TO READ 

011754 

004737 

040024 

JSR 

PC, GETSTS 

305 





306 



.-WAIT FOR COMMAND TO COMPLETE 

011760 

004737 

040732 

JSR 

PC.TINOUT 


JVF 

308 

309 01 1 764 
01l7 7n 
011772 
011774 
01 1 776 

3 ^ 012002 

311 

312 

313 012002 
012006 
0 i 2010 
012012 
012014 
J12016 

3H 012022 

315 012022 
012026 
012030 
012032 
012034 
012036 

316 0)2042 

317 312042 
012046 
012050 
012052 
012054 
012056 

318 012062 

319 

320 012062 

321 

322 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


040110 


012062 


041126 


012062 

054166 


012062 

041760 


012062 


PC.PRIERR 

21 * 


PC.8CSP)* 

24* 

PC.DTASTS 

22 * 


pc.acsp)* 

24* 

PC.SECERR 

23* 


PC.S(SP)* 

24* 


.-WRITE CHECK DATA DATA COMMANO 
;LOAD PUT REGISTER INDEX TABLE 


60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERF IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF FRRUR 


;G0 TO GETSTS SUBROUTINE 


50 GET REGISTER STATUS 
JSR PC. GET 

BR 20* 

NOP 

E«T 

JNP 24$ 


.VERIFY RESULTS OF WRITE CHECK 


;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 


COWHAND 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 21$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.'ERROR # DEFINED 8Y PRIERR SUBROUTINE 

;G0 8ACK FOR MORE ERROR CHECKS 

;G0 TO 24$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSFER 
;G0 TO 22$ IF NO ERROR 
.RETURN HERE IF ERROR 
; ERROR # DEFINED BY DTASTS SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 24$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 23$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.'ERROR » DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR WORE ERROR CHECKS 

;G0 TO 24$ IF ERROR 


■ ******* ************** *ttt»**»**t*t***t*»*<*»»**#*«*tm*t****»* 
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SEO 0080 


323 

324 

325 

326 

327 

328 

329 

330 


331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 


012062 

012062 

012064 

012066 

012072 

012076 

012102 

000004 

000240 

012706 

013700 

013701 

012737 

001100 

001276 

001466 

000004 

C01226 

.-•TEST 

4 

WRITE. WRITE CHECK ZEROS W/ WCE ERROR 

tST4: * 

SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

ASTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#4.$TESTN 

SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RC = UNIBUS ADDRESS 

<R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 





;;**** 

.-LOOP 

#1 

FORMAT. WRITE. WRITE CHECK DATA 

012110 




1$: 








.•PREPARE DEVICE 

FOR TEST 


012110 

004737 

034032 



JSR 

PC.TSTPRP 

PREPARE DEVICE FOR TEST 

012114 

154130 




.WORD 

154130 

TASK DESCRIPTOR AS FOLLOWS: 








SELECT DEVICE l VERIFY DEVICE AVAILABLE 








CLEAR CONTROLLER t SELECT DEVICE 








VERIFY CONTROLLER CLEAR OPERATION 








PACK ACKNOWLEDGE IF VOLUME NOT VALID 








VERIFY PACK ACKNOWLEDGE 








RECALIBRATE IF '‘SKI" OR , Y>IP , ‘ IS SET 








VERIFY RECALIBRATION 

012116 

000404 




BR 

2$ 

GO TO 2$ IF NO ERROR 

012120 

000240 




NOP 


RETURN HERE IF ERROR 

012122 

104000 




EMT 


ERROR » DEFINED BY TSTPRP SUBROUTINE 

012124 

000137 

013256 



JMP 

28$ 

GO TO 28$ IF ERROR 





:LOAD 

PARAMETERS AND GENERATE DATA BUFFER 

012130 




h: 




012130 

012737 

001057 

001446 


MOV 

#559. .RMDCO 

.-CYLINDER = 559. 

012136 

012737 

001000 

001420 


MOV 

ATA2.RMDA0 

.TRACK = 2, SECTOR - 0 

012144 

012737 

104254 

001416 


MOV 

fBUFONE.RMBAO 

.BUS ADDRESS 

012152 

012737 

177376 

001414 


MOV 

#-258.,RMWCO 

;2 ♦ 256. WORDS (2’S COMP) 

012160 

012737 

010000 

001444 


MOV 

0F MT16.RM0F0 

.*16 BIT FORMAT 

012166 

012737 

000063 

001412 


MOV 

#WHfG0,RMCS10 

.•WRITE HEADER AND DATA COMMAND 





: VERIFY THAT SECTOR IS NOT BAD 


012174 

004737 

034762 



JSR 

PC.8ADSCT 

CALL BAD SECTOR MODULE 

012200 

000405 




BR 

3$ 

GO TO 3$ IF NO ERROR 

012202 

104401 

066006 



TYPE 

.SCTMSG 

TYPE BAD SECTOR MESSAGE 

012206 

104000 




EMT 


ERROR # DEFINED BY BADSCT SUBROUTINE 

C12210 

000137 

013256 



JMP 

28$ 

GO TO 28$ IF ERROR 

012214 




3$: 




012214 

012737 

067456 

001174 


MOV 

#ZEROS.$TMPO 

.STARTING ADDRESS OF PATTERN 

012222 

012737 

000001 

001176 


MOV 

#1.$TMP1 

; RANGE OF PATTERN 

012230 

004737 

037214 



JSR 

PC.GENBUF 

;G0 GENERATE BUFFER FOR FORMAT 

012234 

012702 

001555 



MOV 

MPUT1NX.R2 

;R2 = BYTE ENTRY POSITION 

012240 

112722 

000034 



movb 

#RMDC.(R2)* 


012244 

112722 

I* u w-1 



MOVB 

#RMDA,(R2H 


012250 

112722 




MOVB 

#RfilA,(R2)* 


012254 

112722 




MOVB 

#RMWC. (R2)+ 


012260 

112722 

000032 



MOVB 

#RM0F.(R2>* 


012264 

112722 




MOVB 

KRMCSi , (R2> ♦ 



SEQ 008 
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354 012270 

355 012274 

356 012274 
012300 
012302 
012304 
012306 

357 012312 

358 

359 

012312 


012316 

362 

363 

364 012322 
012326 
012330 
012332 
012334 

365 012340 

366 

367 

368 012340 
012344 
012346 
012350 
012352 
012354 

369 012360 

370 

371 

372 012360 

373 012366 

374 

375 

376 

377 

378 012370 

379 

380 

381 012370 
012374 


112712 000200 

004737 040360 
000404 
000240 
104000 

000137 013256 


004737 040024 


004737 040732 


004737 040110 
000404 
000240 
104000 

000137 013256 


004737 054166 

000405 

000240 

104000 

004736 

000137 013256 


012737 012370 
000410 


#200. (R2) 
PC, PUT 

ss 


; TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTiNE 

GO TO 28$ IF ERROR 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;60 TO GETSTS SUBROUTINE 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 EGT REGISTER STATUS 
JSR PC, GET 
BR 6$ 

NOP 

ENT 

JMP 28$ 

6 $: 

.•VERIFY RESULTS OF WRITE COMMAND 
JSR PC.DTASTS 

BR 7$ 


PC-ilSP)* 

28 i 


;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER (S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 


001124 


.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$,$LPERR 

BR 9$ 


.-SKIP TO WRITE OPERATION 


.•LOOP #2 


WRITE, WRITE CHECK DATA 


004737 034032 
154130 


.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


012376 

000404 

BR 

9$ 

012400 

000240 

NOP 


012402 

104000 

EMT 


012404 

000137 013256 

JMP 

28$ 

382 012410 


9$: 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '‘SKr* OR ’WP" IS SEi 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR . _ 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 


/ 


>EQ 0082 
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384 

385 012410 

386 012410 

387 012416 

388 012424 

389 012432 

390 012436 

391 012442 

392 012446 

393 012452 

394 012456 

395 012462 

396 012466 

397 

398 012472 
012476 
012500 
012502 
012504 

399 012510 


012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


177400 001414 
104260 001416 
000061 001412 

001555 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

040360 


013256 


012510 004737 040024 


012514 

404 

405 

406 012520 
012524 
012526 
012530 
012532 

407 012536 

408 

409 

410 012536 
012542 
012544 
012546 
012550 
012552 

411 012556 

412 012556 
012562 
012564 
012566 
012570 
012572 


004737 040732 


004737 

000404 

000240 

104000 

000137 


040110 


013256 


004737 041126 

000405 

000240 

104000 

004736 

000137 013256 

004737 054166 

000405 

000240 

104000 

004736 

000137 013256 


: SETUP PARAMETERS AND EXCUTE COMMAND 
lOS: 

MOV f-256. .RMWCO .'CHANGE WORD COUNT 
MOV #BUF0NE*4,RMBA0 .‘CHANGE MEMORY ADDRESS 

MOV #WD.'G0,RMCS10 .‘WRITE DATA COMMAND 

MOV #PUT1NX.R2 .‘LOAD PUT REGISTER INDEX TABLE 

M0V8 #RMDA.(R2>+ 

MOVB #RMDC,<R2>* 

M0V8 #RMOF , (R2> ♦ 

MOVB #RMBA.(R2)+ 

MOVB #RMWC.(R2>* 

MOVB #RMCS1,(R2>* 

MOVB #200, <R2) ♦ .-TERMINATE TABLE 


MOV 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 


PC. PUT 
11 $ 


GO WRITE REGISTER'S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.5ETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.T1M0UT 


; GO TO TIMOUT SUBROUTINE 


GO READ STATUS FOR WRITE COMMAND 
JSR PC, GET 

BR 12$ 


GO READ REGISTER(S) WITH C;T SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 


; CHECK FOR ERRORS DURING WRITE OPERATION 


PC.PRJERR 

13i 


pc.acsp)* 

28i 

PC.DTASTS 

ui 


pc.acsp)* 

28i 


GO CHECK FOR PRIMARY ERRORS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GC TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 


413 012576 

414 012576 

004737 

041760 

14$: 

JSR 

PC.SECERR 

15i 

012602 

000405 



BR 

012604 

000240 



NOP 


012606 

104000 



EMT 

PC.a(SP)* 

28i 

012610 

004736 



JSR 

012612 

000137 

013256 

15$: 

JNP 

415 012616 






GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECER° SUBROUTINE 

GO BACK FOR MORE ERROR C. C CKS 

GO TO 28$ IF ERROR 
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416 

417 


;EQ 0083 


418 012616 

419 
on 

012737 

012630 001124 

MOV 

«16S.$LPERR 



422 

'.23 012624 



;LOOP #3 

WRITE CHECK DATA 



012703 

000001 

MOV 

#1.R3 

;R3*WCE BIT 

POSITION 

'<24 012630 



16$: 


425 012630 

426 

427 

050337 

105256 

BiS 

R3.BUF TWO-2 

.•CHANGE LAST 

WORD OF 



.•PREPARE DEVICE 

FOR TEST 



428 012634 

004737 

034032 

JSR 

PC. TSTPRP 

154130 j 

: PREPARE DEVICE FOR 

TEST 

012640 

154130 


.WORD 

; TASK DESCRIPTOR AS 

FOLLOWS: 


012642 

000404 



BR 

17$ 

012644 

000240 



NOP 


012646 

104000 



EMT 


012650 

000137 

013256 


JMP 

28$ 

429 012654 



17$: 



430 






431 



.-READ 

DATA FROM 

DEVICE 

432 012654 



18$: 



433 012654 

012737 

000051 001412 


MOV 

#WCD!G0.RMCS10 

434 012662 

012702 

001555 


MOV 

#PUTINX.R2 

435 012666 

112722 



MO VS 

#RMDA, (R2) ♦ 

436 012672 

112722 

000032 


M0V8 

#RM0F.(R2>* 

437 012676 

112722 

000034 


M0V8 

#RMDC.(R2>* 

438 012702 

112722 

000004 


M0V8 

«RMBA.(R2>+ 

439 012706 

112722 

000002 


MOVB 

#RMWC.(R2)* 

440 012712 

112722 

000000 


MOVB 

#RMCS1.(R2>* 

441 012716 

112712 

000200 


MOVB 

#200. (R2) 

442 






443 012722 

004737 

040360 


JSR 

PC. PUT 

012726 

000404 



BR 

19i 

012730 

000240 



NO P 


012732 

104000 



EMT 


012734 

000137 

013256 


JMP 

28$ 

444 012740 



19$: 



445 






446 



.•SETUP 

GET INDEX TABLE TO READ 

012740 

004737 

040024 


JSR 

PC. GETSTS 

447 






448 



.•WAIT 

FOR COMMAND TO COMPLETE 

012744 

004737 

040732 


JSR 

PC.TIMOUT 

450 



;G0 READ STATUS 

FOR WRITE Cw’EC* 

451 012750 

004737 

040110 


JSR 

PC. GET 

012754 

000404 



BR 

20* 

012756 

000240 



NOP 


012760 

104000 



EMT 



SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER C SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '‘SK! ’ OR ’‘PIP** IS SET 

VERIFY RECALI8AATI0N 

GO TO 17$ IF NO ERROR 

RETURN HERE IT ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 2e$ IF ERROR 


.WRITE CHECK DATA DATA COMMANO 
.-LOAD PUT REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


;60 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 
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SEO 0084 


461 


012762 

452 012766 

453 

454 

455 012766 
012772 
012774 
012776 
013000 
013002 

456 013006 

457 013006 

458 013014 

459 

460 013016 
013022 
013024 
013026 
013030 
013032 
013036 

462 013036 

463 013044 

464 013052 

465 013060 

466 013064 

467 013072 

468 013074 

469 013076 

470 013076 
013104 
013112 
013116 
013120 
01312? 
013124 
013130 

472 013130 

473 013136 

474 013144 

475 013150 

476 013156 

477 013164 

478 013172 

479 013200 

480 013202 

481 013204 

48 2 013206 

483 013214 

484 013216 

485 013220 

486 013222 

487 

488 013222 
015226 
013230 
013232 


471 


000137 013256 

041126 


00473? 

000405 

000240 

104000 

004736 

000137 

032737 

001030 

004737 

000405 

000240 

104000 

004736 

00C137 

013737 

052737 

013737 

010337 

012737 

104337 

000470 

112737 

112737 

004737 

000404 

000240 

104000 

000137 

013737 

013737 

040337 

012737 

013737 

162737 

023737 

001402 

104340 

000424 

023737 

001402 

104341 

000416 


004737 

000405 

000240 

104000 


20 $: 


JNP 


28$ 


; CHECK FOR ERRORS DURING WRITE 


013256 

040000 

054166 


013256 

001346 

040000 

001346 

001174 

105256 


000022 

000200 

040110 


013256 

001360 

105256 

001140 

105256 

001342 

000002 

001134 


001346 


21 $: 


C01140 

001140 

001142 

001176 


001526 

001527 


22 $: 


23$= 


001142 

001140 

001134 

001136 

001136 

001136 


24$: 


001140 001 I 42 25$: 

26$: 

041760 


JSR 

BR 

NOP 

EAT 

JSR 

JNP 

BIT 

BNE 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 

NOV 

BIS 

NOV 

NOV 

NOV 

ENT 

BR 

NOVB 

wove 

JSR 

BR 

NOP 

ENT 

JNP 

NOV 

NOV 

eic 

NOV 

NOV 

SUB 

CNP 

BED 

ENT 

BR 

CNP 

BEQ 

ENT 

BR 


JSR 

BR 

NOP 

ENT 


PC.PRIERR 
2li 


pc.a(sp)* 

28i 

AWCE.RNCS2I 

23$ 

PC.DTASTS 

?2i 


pc.a(sp)* 

28* 

RNCS2I ,$GDDAT 
#WCE.$GDDAT 
RNCScI ,$BDDAT 
R3.$TNP0 
f|UFTW0-2,$TNPl 

28$ 

ARND8.GETINX 
#200,GETINX+1 
PC. GET 
24* 


28$ 

RND6I,$8DDAT 
BUF TWO-2, $GOOAT 
R3.$6DDAT 
<T6UF TWO-2 , $GDADR 
RNBAI ,$8DADR 
#2 . $8DADR 
$GPADR,$8DADR 
25$ 

340 
26$ 

$GDDAT.$6DDAT 

26$ 

341 
28$ 


P^SECERR 


;G0 TO 28$ IF EFIROR 


CHECK DA T A OPERATE 
;GC CHECK FOR PRlftAAY ERRORS 
GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR NORE ERROR CHECKS 
GO TO 28$ IF ERROR 

;WAS ‘WCE" DETECTED?? 

; YES! ! 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 28$ IF ERROR 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
.‘FAILING BIT POSITION 
.FAILING ADDRESS 


SETUP GET INDEX TABLE 

SETUP TERNINATOR BYTE 

GO READ RND8 VIA GET SUBROUTINE 

GO TO 24$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 

.•RECEIVED DATA 
; EXPECTED DATA 

.’EXPECTED ADDRESS 
.RECEIVED ADDRESS 
.‘ADJUST BUS ADDRESS 
.ADDRESSES OK?? 

;YES!! 


.•DATA OK?? 
; YES! i 


GO CHECK FOR SECONDARY ERRORS 

GO TO 27$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 
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>EO 00&'> 


013234 
013236 
489 013242 
49C 013242 

491 013246 

492 013250 

493 013252 

494 013256 

495 

496 


004736 

000137 013256 

040337 105256 

006303 

001402 

000137 012630 


27$: 


28$: 


JSR PC^aCSPI* ;G0 BACK FOR MORE ERROR CHECKS 

JMP 2 8i ;G0 TO 28$ IF ERROR 

BIC R3.8UFTW0-2 .-RESTORE DATA PATTERN 

ASL R3 .-SHIFT TO NEXT BIT 

6EQ 28$ .-EXIT IF DONE 

JMP 16$ .-REPEAT TEST FOR NEXT DATA BIT 





.’•TEST 

5 

WRITE. READ ONES 


013256 
013256 
013260 
01 3262 

000004 

000240 

012706 

001100 

001276 

;;**** 

TST5: 

SCOPE 

NOP 

MOV 

#STACK.SP 

SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

013266 

013700 


MOV 

$8ASE.R0 

RO - UNIBUS ADDRESS 

013272 

013701 

001466 


MOV 

TSTQUE.R1 

(R1) = DEVICE BEING TESTED 

013276 

012737 

000005 001226 


MOV 

#5,*TESTN 

.-SET TEST NUMBER IN APT MAIL BOX 

013304 



;;**** 

.-LOOP 

1$: 

#1 

FORMAT. WRITE. READ 


497 

498 

499 

500 

501 

502 

503 

504 013304 
013310 


004737 034032 
154130 


; PREPARE THE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 15*130 



013312 

000404 




BR 

2$ 


013314 

000240 




NOP 



013316 

104000 




EMT 

25* 

505 

506 

013320 

000137 

014264 



JMP 





.’LOAD PARAMETERS AND GENERATE ! 

507 

013324 




2$: 


#559. .RMDCO 

508 

013324 

012737 

001057 

001446 


MOV 

509 

013332 

012737 

001000 

001420 


MOV 

#TA2,RMDA0 
#8yF0NE,RMBA0 
#-258. .RMWCO 

5iO 

013340 

012737 

104254 

001416 


MOV 

511 

013346 

012737 

177376 

001414 


MOV 

512 

013354 

012737 

010000 

001444 


MOV 

#F MT16.RM0F0 

513 

514 

515 

013362 

012737 

000063 

001412 


MOV 

#WH!60,RMCS10 





.’VERIFY 

THAT 

SECTOR IS NOT BAD 

013370 

004737 

034762 



JSR 

PC. BADSCT 


013374 

000405 




BR 

3* 


013376 

104401 

066006 



TYPE 

.SCTMSG 


013402 

104000 




EMT 

25* 


013404 

000137 

014264 


3$: 

JMP 

516 

013410 





#ONES.*TMPO 

517 

013410 

012737 

067414 

001174 


MOV 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ■•SKI" OR 'WP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


.-CYLINDER = 559. 

; TRACK = 2. SECTOR = 0 
.-BUS ADDRESS 

;2 ♦ 256. WORDS <2*S COMP) 

; 1 6 BIT FORMAT 

.-WRITE HEADER AND DATA COMMAND 

.’CALL BAD SECTOR MODULE 

;G0 TO 3$ IF NO ERROR 

.TYPE BAD SECTOR MESSAGE 

.•ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 25* IF ERROR 

.•STARTING ADDRESS OF PATTERN 


1 
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H J 4 




3-16 


JEO 0086 


534 

535 

536 

337 

538 

539 

540 

541 


013416 

013424 


013430 
013434 
013440 
013444 
013450 
013454 
013460 
Cl 3464 
013470 


013470 

013474 

013476 

013500 

013502 

013506 


012737 

004737 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 


004737 

000404 

000240 

104000 

000137 


0C0001 001176 

03721a 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


040360 


014264 


013506 004737 040024 


013512 004737 040732 


013516 
013522 
013524 
013526 
013530 

542 013534 

543 


004737 040110 
000404 
000240 
104000 

000137 014264 


MOV 

JSR 


fl.JTMPl 
PC .GENBUF 


.OAD PUT REGISTER INDEX TABLE 
MOV #PUTINX,R2 

MOVB #RMDC.(R2>* 

MOVB #RMDA,(R2)+ 

MOVB #RMBA, (R2) ♦ 

MOVB #RMWC.(R2)* 

MOVB #RMOF. (R2)+ 

MOVB #RMCS1 , (R2) ♦ 

MOVB #200. (R2) 


.RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 

FOR FORMAT OPERATIION 

;R 2 = BYTE ENTRY POSITION 


4$: 

.FORMAT THE DRIVE 


5$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. PUT 

5$ 


25$ 


.•TERMINATE TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


GO READ STATUS fOR FORMAT OPERATION 


6 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 
6 $ 


25$ 


.'VERIFY NO ERRORS DURING FORMAT 


545 

013534 

004737 

054166 


JSR 

PC. DTASTS 

013540 

000405 



BR 

7$ 


013542 

000240 



NOP 



013544 

104000 



EMT 

PC.aCSPH 


013546 

004736 



JSR 

546 

547 

548 

013550 
O 1 3554 

000137 

014264 

7$: 

JMP 

25$ 




.'MOVE 

LOOP ADDRESSES TO NE) 

549 

013554 

012737 

013564 001124 


MOV 

#i$.$LPERR 

550 

013562 

000410 



BR 

9$ 


;G0 READ RE6ISTERCS) WITH GET SUBROUTINE 

;G0 TO 6$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.‘ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 25$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 


.'SKIP TO WRITE OPERATION 


551 

552 

553 

554 

555 

556 

557 

558 

559 


013564 


013564 004737 034032 


.•LOOP #2 

8 $: 


WRITE. READ 


.PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 


.•PREPARE DEVICE FOR TEST 
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SEO 0087 


013570 154130 


013572 

013574 

013576 

013600 

560 013604 

561 

562 

563 013604 

564 013604 

565 013612 

566 013620 

567 013626 

568 013632 

569 013636 

570 013642 

571 013646 

572 013652 

573 015656 

574 013662 

575 

576 013666 
013672 
013674 
013676 
013700 

577 013704 

578 

579 

013704 

580 

581 

013710 

582 

583 

584 013714 
013720 
013722 
013724 
013726 

535 013732 

586 

587 

588 013732 
013736 
013740 
013742 
013744 
013746 

589 013752 


000404 

000240 

104000 

000137 014264 


012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


.WORD 154130 


9$: 


BR 

NOP 

EMT 

JMP 


: WRITE DATA 
lOf: 


9$ 


25* 


TO THE DRIVE 


104260 

001416 

MOV 

«BUF0NE+4,RMBA0 

177400 

001414 

MOV 

#-256. .RMWCO 


001412 

MOV 

#WD!G0,RP.CS10 

001555 


MOV 

#PUTINX,R2 

#RMDA,(R2>+ 

000006 


M0V8 

000034 


M0V8 

#RNDC,(R2>* 

000032 


Move 

#RM0F , (R?H 

000004 


M0V8 

#RMBA, <R2) ♦ 

000002 


M0V8 

#RMWC. (R2)+ 

#RMCS1,(R2>* 

#200,(R2)«- 

000000 


Move 

000200 


movb 

040360 


JSR 

BR 

NOP 

EMT 

PC.PUT 

ni 

014264 


JMP 25* 

11*: 

.SETUP GET INDEX TABLE TO READ 

040024 


JSR PC. GETSTS 

.WAIT FOR COMMAND TS COMPLETE 

040732 


JSR 

PC, TIMOUT 


TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE !F "SKr OR 'PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 91 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25* IF ERROR 


.•CHANGE MEMORY ADDRESS 
; CHANGE WORD COUNT 

; WRITE DATA COMMAND 

.‘LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 

GO WRITE REGISTERCS) WITH PUT SUBROUTINE 

GO TO 11* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25* IF ERROR 


;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 


004737 040110 
000404 
000240 
104000 

000137 0142 *4 


004737 041526 

000405 

000240 

104000 

004736 

000137 014264 


GO READ STATUS FOR WRITE COMMAND 


JSR 

BR 

NOP 

EMT 

JMP 


PC.GET 

12 * 


25* 


12 *: 

.-CHECK FOR ERRORS DURING WRITE OPERATION 


GO READ REGISTERCS) WITH GET SUBROUTINE 

GO TO 12* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25* IF ERROR 


13 *: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.PRIERR 
13i 


pc.acsp)* 

25* 


GO CHECK FOR PRIMARY ERRORS 

GO TO 13* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25* IF ERROR 
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WRITE, READ ONES 


590 013752 
013756 
013760 
013762 
013764 
013766 

591 013772 

592 013772 
013776 
OUGOO 
014002 
014004 
014006 

593 014012 

594 

595 

5% 014012 

597 014020 

598 

599 

600 

601 

602 014022 

603 

604 

605 014022 
014026 


004737 054166 

000405 

000240 

104000 

004736 

000137 01 4264 

004737 041760 

000405 

000240 

104000 

004736 

000137 014264 


012737 014022 001124 
000410 


jSR pc.dtasts 

BR US 

NOP 

ENT 

JSR PC.i(SP)« 

JMP 25i 

JSR PC.SECERR 

BR 15$ 


PC.i(SP)* 

25i 


; CHANGE LOOP ADDRESSES 

MOV #16$,$LPERR 

BR 17$ 


004737 034032 
154130 


.-LOOP #3 


.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


014030 

014032 

014034 

014036 

606 014042 

607 

608 

609 014042 

610 014042 

611 014050 

612 014056 

613 014062 

614 014066 

615 014072 

616 014076 

617 014102 

618 014106 

619 014112 

620 

621 014116 
014122 
014124 
014126 


000404 

000240 

104000 

000137 014264 


012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 
000404 
0002a 0 
104000 


105264 001416 
000071 001412 
001555 
000006 
000032 
000034 
000004 
C00002 
000000 
000200 

040360 


.•READ DATA FROM DEVICE 
18$: 

NOV #8UFTW 
NOV #RD.'GO 
NOV f PUT IN 
N0V8 fRNDA, 
NOVB #RNOF, 
N0V3 #RNDC, 
NOVB #RNBA, 
NOVB #RNWC. 
NOVB #RMCS1 
NOVB #200, C 


#8UF T WO+4 , RN6A0 
#RD!60,RNCS10 
#PUTINX,R2 
fRNDA, (R2)+ 
fRNOF , (R2)* 
#RNDC,(R2)+ 
fRNBA, (R2) ♦ 
#RMWC.(R2)* 
#RMCS1.(R2)* 
#200, (R2) 


PC. PUT 
i9i 


JEO 0088 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ JF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 25$ IF ERROR 


.-SKIP TO NEXT OPERATION 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 


GO TO 25$ IF ERROR 


CHANGE NENORY ADDRESS 

READ DATA COMMAND 

LOAD PUT REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 
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15 


iEQ 0089 



WRITE. 

READ ONES 




OKI 30 

000137 

014264 

JNP 

25$ 

622 

623 

624 

OKI 34 



19$: 





.•SETUP GET INDEX TABLE TO 

625 

626 

014134 

004737 

040024 

JSR 

PC. GETSTS 




.-WAIT FOR COMMAND TO COMPI 

627 

628 

014140 

004737 

040732 

JSR 

PC, T I ROUT 




;G0 READ STATUS 

FOR READ I 

629 

014144 

004737 

040110 

JSR 

PC. GET 

20$ 

014150 

000404 


BR 


014152 

000240 


NOP 



014154 

104000 


EMT 

25$ 


014156 

000137 

014264 

JMP 

630 

014162 



20$: 



631 

632 

633 014162 
014166 
014170 
014172 
014174 
0141 T 6 

634 014202 

635 014202 
014206 
014210 
014212 
014214 
014216 

636 014222 

637 014222 
014226 
014230 
014232 
014234 
014236 

638 014242 

639 014242 
014246 
014250 
014252 
014254 
014256 
014260 

640 014264 

641 

6*2 014264 

643 

644 


014264 

014264 

014266 

014270 


104260 

105264 

000404 

000240 

104000 

000137 


014264 


000004 

000240 

012706 001100 


004737 

041126 


JSR 

000405 



BR 

000240 



NOP 

104000 



EMT 

004736 



JSR 

000137 

014264 

21$: 

JMP 

004737 

054166 


JSR 

000405 



BR 

000240 



NOP 

104000 



EMT 

004736 



JSR 

000137 

014264 

22$: 

JMP 

004737 

041760 


JSR 

000405 



BR 

000240 



NOP 

104000 



EMT 

004736 



JSR 

000137 

014264 

23$: 

JMP 

004737 

037462 


JSR 


.-CHECK FOR ERRORS DURING READ 
PC.PRJERR 
21$ 


pc.a<sp>* 

25i 


.WORD 

.WORD 

BR 

NOP 

ENT 

JMP 


PC.DTASTS 

22 $ 


pc.acsp)* 

25$ 

PC.SECERR 

23$ 


pc,a(sp>* 

25$ 

PC.CMPBUF 

BUFONE+4 

BUFTWO+4 

24$ 


25$ 


;G0 TO 25$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PR I ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECEPR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 


GO COMPARE WRITE. READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
{STARTING ADDRESS OF READ BUFFER 
GO TO 2*$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY CMPBUF SUBROUTINE 
GO TO 25$ IF ERROR 


24$: 

25$: 

• • *************************************************************** 

•'•TEST 6 WRITE. WRITE CHECK ONES 

• • *************************************************************** 

t$T6: 


SCOPE 

NJP 

MOV 


fSTACK.SP 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
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S8ASE.R0 
TST0UE.R1 
#6.$TESTN 


M 7 


SEO 0090 


WRITE. 

WRITE CHECK ONES 


014274 

013700 

001276 

MOV 

014100 

013701 

001466 

MOV 

014304 

012737 

000006 001226 

MOV 


645 

646 
64? 

648 

649 014312 

650 

651 

652 014312 004737 034032 
014316 154130 


RO = UNIBUS ADDRESS 

<R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


014320 

014322 

014324 

014326 

653 

654 

655 014332 

656 014332 

657 014340 

658 014346 

659 01 4354 

660 014362 

661 014370 
66 2 

663 

014376 

014402 

014404 

C14410 

014412 

664 014416 

665 014416 

666 014424 

667 014432 

668 

669 

670 014436 

671 014442 

672 014446 

673 014452 

674 014456 

675 014462 

676 014466 

677 014472 

6 78 014476 

679 

680 
681 


000404 

000240 

104000 

000137 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 


015242 


001057 

001000 

104254 

177376 

010000 

000063 


034762 

066006 

015242 

067414 

000001 

037214 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


.-LOOP #1 
1 $: 


FORMAT, WRITE .WRITE CHCCK DATA 


; PREPARE THE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 


BR 

NOP 

EMT 

JMP 


2S 


24$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER 8 SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'* OR •‘PIP'' IS SET 

VERIFY RECALISRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED eY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 


[LOAD PARAMETERS AND GENERATE DATA BUFFER 


001446 

C+ * 

MOV 

#559. .RMDCO 


CYLINDER = 559. 

001420 


MOV 

#TA2,RMDA0 


TRACK = 2, SECTOR = 0 

001416 


MOV 

#8UF0NE,RMBA0 


BUS ADDRESS 

001414 


MOV 

#-258. .RMWCO 


2 ♦ 256. WORDS (2’S COMP) 

001*44 


MOV 

#FMT16,RN0F0 


16 BIT FORMAT 

001412 


MOV 

#WH! G0.RMCS10 


WRITE HEADER AND DATA COMMAND 


; VERIFY 

THAT 

SECTOR IS NOT BAD 





JSR 

PC.BADSCT 

.'CALL BAD SECTOR MODULE 



BR 

3$ 

;G0 TO 3$ IF NO ERROR 



TYPE 

.SCTMSG 

.-TYPE BAD SECTOR MESSAGE 



EMT 


; ERROR # DEFINED BY BADSCT SUBROUTINE 



JMP 

24$ 

;G0 TO 24$ IF ERROR 

001174 

39: 

MOV 

#ONES,$TMPO 


[STARTING ADDRESS OF PATTERN 

001 176 


MOV 

#1 ,$TMP1 


[RANGE OF PATTERN 



JSR 

PC.GEN8UF 


[GO GENERATE BUFFER FOR FORMAT 


.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 


4$: 


MOV #PUTINX,R2 

M0V8 #RMDC,(R2)* 
MOVB #RMDA, <R2) ♦ 

M0V8 #RMBA,(R2)* 
MOVB fftMWf , (Up)* 
MOVB #RM0F.(R2>* 
MOVB #RNCSl,<R2)> 
MOVB #200, (R2) 


;R2 = BYTE ENTRY POSITION 


014476 004737 040360 


.•FORMAT THE DRIVE 

JSR PC, PUT 


; TERMINATE TABLE 


;G0 WRITE REGISTER (S) WITH PUT SUBROUTINE 
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5$: 


EQ 00 vi 



0U502 

ooo4c; 



014504 

000240 



014506 

104000 



014510 

000137 

015242 

682 

014514 



683 




684 

014514 

004737 

040024 

685 




686 

014520 

004737 

040732 

687 




688 




689 

014524 

004737 

040110 


014530 

000404 



014532 

000240 



014534 

104000 



014536 

000137 

015242 

690 

014542 



691 




692 




693 

014542 

004737 

054166 


BR 

5$ 

;G0 TO 5$ IF NO ERROR 

NOP 


.RETURN HERE IF ERROR 

EMT 


.-ERROR 0 DEFINED BY PUT SUBROUTINE 

JMP 

24$ 

;G0 TO 24$ IF ERROR 


014S46 

014SS0 

014552 

014554 

014556 

694 014562 

695 

697 014562 

698 014570 

699 

700 

701 

702 

703 014572 

704 

705 
70S 

707 014572 
014576 


.■SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR FORMAT OPERATION 

JSR PL. GET ;G0 READ REGJSTER(S) WITH GET SUBROUTINE 

BR 6$ ;G0 TO 6S IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .‘ERROR 0 DEFINED BY GET SUBROUTINE 

JMP 24S ;G0 TO 24S IF ERROR 

6S: 


.-VERIFY NO ERRORS DURING FORMAT 


000405 

000240 

104000 

004736 

000137 015242 


012737 014572 001124 
000410 


7$: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.DTASTS 

7$ 


PC.a(SP)* 

24i 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED 8Y DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24S IF ERROR 


.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV m.SLPERR 

BR 9S 


.-SKIP TO WRITE OPERATION 


I*************************************************************** 


.LOOP 02 
8 $: 


WRITE. WRITE CHECK DATA 


004737 034032 
154130 


.-PREPARE DEVICE FOR WRITE OPERATION 


JSR 
.WORD 


PC.TSTPRP 
154130 


014600 000404 
014602 000240 
014604 104000 
014606 000137 015242 


708 014612 

709 

710 

711 014612 


9$: 


BR 

NOP 

EMT 

JMP 


9$ 


24$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ‘•SKI*' OR “PIP“ IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 


; WRITE DATA TO THE DRIVE 

10 $: 
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D 


SEO 0092 


712 

014612 

012737 

104260 

001416 


NOV 

#8UF ONE *4 . RNBAO 

.CHANGE NENORY ADDRESS 

713 

014620 

012737 

177400 

001414 


HOV 

A-256..RNWC0 

CHANGE WORD COUNT 

714 

014626 

012737 

000061 

001412 


NOV 

fWD.'GO.RNCSIO 

.WRITE DATA C UNHAND 

715 

014634 

012702 

001555 



NOV 

#PUTJNX.R2 

.-LOAD PUT REGISTER INDEX TABLE 

716 

014640 

112722 

000006 



NOVS 

#RNDA.(R2)+ 


717 

014644 

112722 

000034 



N0V9 

#RNDC.(R2)+ 


718 

014650 

11 2722 

000032 



NOVS 

#RH0F.(R2)+ 


719 

014654 

112722 

000004 



NOVS 

#RHBA, < R2 > ♦ 


720 

014660 

112722 

000002 



NOVS 

#RNWC.(R2>* 


721 

014664 

112722 

000000 



NOVS 

fRNCSl , (R2) ♦ 


722 

707 

014670 

112722 

000200 



NOVS 

#200. (R2>* 

,-TERNINATE TABLE 

( cb 
724 

014674 

004737 

040360 



JSR 

PC .PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 


014700 

000404 




SR 

ni 

GO TO 11$ IF NO ERROR 


014702 

000240 




NOP 


RETURN HERE IF ERROR 


014704 

104000 




ENT 


ERROR # DEFINED BY PUT SUBROUTINE 


014706 

000137 

015242 



JNP 

24$ 

GO TO 24$ IF ERROR 

725 

014712 




11$: 




726 









727 





; SETUP 

GET INDEX TABLE TO READ ALL REGISTERS 

73 © 

014712 

004737 

040024 



JSR 

PC.GE T STS ;G0 TO GETSTS SUBROUTINE 

r CO 

729 





;WAIT 

FOR CQNHAND TO CONPLETE 



014716 

004737 

040732 



JSR 

PC.1IN0UT 

GO TO TINOUT SUBROUTINE 

fJ\J 

731 





;GO READ STATUS 

FOR WRITE CONNAND 

732 

014722 

004737 

040110 



JSR 

PC. GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 


014726 

000404 




SR 

12$ 

GO TO 12$ IF NO ERROR 


014730 

000240 




NOP 


RETURN HERE IF ERROR 


014732 

104000 




ENT 


ERROR # DEFINED BY GET SUBROUTINE 


014734 

000137 

015242 



JNP 

24$ 

GO TO 24$ IF ERROR 

733 

77 / 

014740 




12$: 




f J M 

735 





.-CHECK 

FOR ERRORS DURING WRITE OPERATION 

736 

014740 

004737 

041126 



JSR 

PC.PRIERR 

GO CHECK FOR PRINARY ERRORS 


014744 

000405 




6R 

13$ 

GO TO 13$ IF NO ERROR 


014746 

000240 




NOP 


RETURN HERE IF ERROR 


014750 

104000 




ENT 


ERROR # DEFINED BY PRIERR SUBROUTINE 


01' 752 

004736 




JSR 

pc.a(sp>* 

GO BACK FOR HORE ERROR CHECKS 


014754 

000137 

015242 



JNP 

24$ 

GO TO 24$ IF ERROR 

737 

014760 




13$: 




738 

014760 

004737 

054166 



JSR 

PC.DTASTS 

GO VERIFY RESULTS OF DATA TRANSFER 


014764 

000405 




SR 

14i 

GO TO 14$ IF NO ERROR 


014766 

000240 




NOP 


RETURN HERE IF ERROR 


014770 

104000 




ENT 


ERROR # DEFINED BY DTASTS SUBROUTINE 


014772 

004736 




JSR 

pc.a(sp>* 

GO BACK FOR HORE ERROR CHECKS 


014774 

000137 

015242 



JNP 

24 i 

GO TO 24$ IF ERROR 

739 

015000 




14$: 




740 

015000 

004737 

041760 



JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 


015004 

000405 




BR 

15* 

GO TO 15$ IF NO ERROR 


015006 

000240 




NOP 


RETURN HERE IF ERROR 


015010 

104000 




ENT 


ERROR # DEFINED BY SECERR SUBROUTINE 


015012 

004736 




JSR 

pc.acsp)* 

GO BACK FOR HORE ERROR CHECKS 


015014 

000137 

015242 



JNP 

24i 

GO TO 24$ IF ERROR 

741 

7/7 

015020 




15$: 




743 





.'CHANGE LOOP ADDRESSES 



bEQ 0093 
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015020 012737 015030 001124 
015026 000410 


015030 


015030 004737 034032 
015034 154130 


#16$.$LPERR 

17 $ 


■SKIP TO NEXT OPERATION 


;10CP #3 


WRITE CHECK DATA 


.-PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 


JSR 

.WORD 


PC.TSTPRP 

154130 


015036 

000404 

8R 

17$ 

015040 

000240 

NOP 


015042 

104000 

EMT 

24$ 

015044 
754 015050 

000137 015242 

JMP 

17$: 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIf Y DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'* OR ' PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 


755 

756 

757 015050 

758 015050 

759 015056 

760 015062 

761 015066 

762 015072 

763 015076 

764 015102 

765 015106 

766 015112 

767 

768 015116 
015122 
015124 
015126 
015130 

769 015134 

770 


012737 000051 001412 

012702 001555 
112722 000006 
112722 000032 
112722 000034 
112722 000004 
112722 000002 
112722 000000 
112712 000200 

004737 040360 
000404 
000240 
104000 

000137 015242 


.-WRITE CHECK DATA DATA FROM DEVICE 
18$: 

MOV #WCD!G0.RMCS10 

MOV #PUTINX,R2 

M0V8 #RMDA,(R2)+ 

MOVB #RMOF (R2H 

MOVB #RMDC, <R2) ♦ 

MOVB #RMBA.(R2>* 

MOVB #RMWC. (R2) + 

MOVB fRMCSl , <R2 ) ♦ 

MOVB #200, (R2) 


.•WRITE CHECK DATA DATA COMMAND 
.•LOAD PUT REGISTER INDEX TABLE 


PC .PUT 
19i 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 


015134 004737 04C024 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS PimnilTTMi: 
JSR PC.GE FSTS ;G0 TO GETSTS SUBROUTINE 


015140 

774 

775 

776 015144 
015150 
015152 
015154 
015156 

777 015162 

778 


004737 040732 


004737 040110 
000404 
000240 
104000 

000137 015242 


.•WAIT FOR COMMAND TO COMPLETE _ _ pl „ onilTfM _ 

JSR PC.TIMOUT ;G0 TO TIMOUT SUBROUTINE 

;G0 READ STATUS FOR WRITE CHECK DATA OPERATION 


PC.GET 

20 $ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 


JEQ 0094 
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779 

780 015162 
015166 
015170 
015172 
015174 
015176 

781 015202 

782 015202 
015206 
015210 
015212 
015214 
015216 

783 015222 

784 015222 
015226 
015230 
015232 
015234 
015236 

785 015242 

786 

787 015242 

788 

7 89 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


041126 


015242 

054166 


015242 

041760 


015242 


.CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 

BR 21 $ 


PC.a(SP)* 

24$ 

PC.DTASTS 

22 $ 


PC.i(SP)* 

24$ 

PC.SECERR 

23$ 


pc.atsp)* 

24$ 


CHECK DATA OPERATION 
;G0 CHECK FOR PRIMARY ERRORS 
;G0 TC 21 S IF NO ERROR 
.RETURN HERE IF ERROR 
.'ERROR * DEFINED BY PRIERR SUBROUTINE 
.GO BACK FOR MORE ERROR CHECKS 
;G0 TO 24$ IF ERROR 

;S0 VERIFY RESUlIS OF DATA TRANSFER 

;G0 TO 22$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.■ERROR # DEFINED BY DTASTS SUBROUl »NE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 24$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 23$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.•ERROR » DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 24$ IF ERROR 


■ **»t**»*»*********»*»**»****»t***i******M«»****»»tm»»****»* 

West 7 write, write check ones w/ wce error 


015242 

015242 

000004 

TST7: 

SCOPE 

015244 

000240 


NOP 

015246 

012706 

001100 

MOV 

015252 

013700 

001276 

MOV 

015256 

013701 

001466 

MOV 

015262 

012737 

000007 001226 

MOV 


790 

791 

792 

793 

794 015270 

795 

796 

797 015270 004737 034032 
015274 154130 


fSTACK.SP 
$8ASE ,R0 
TST0UE.R1 
#7,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


.'LOOP #1 


FORMAT.WRITE. WRITE CHECK DATA 


.-PREPARE THE DEVICE FOR FORMAT OPERATION 


JSR 

.WORD 


PC.TSTPRP 

154130 


015276 000404 
015300 000240 
015302 104000 
015304 000137 016440 
798 015310 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '■SKI r * OR ‘PIP IS SET 

VERIFY RECALIBRAFION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 
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800 

801 015310 

802 015316 

803 015324 

804 015332 

805 015340 

806 015346 
80 7 

808 

015354 

015360 

015362 

015366 

015370 

809 015374 

810 015374 

811 015402 

812 015410 

813 

814 

815 015414 

816 015420 

817 015424 

818 015430 

819 015434 

820 015440 

821 015444 

822 015450 

823 015454 

824 

825 

826 015454 
015460 
015462 
015464 
015466 

827 015472 

828 

829 

015472 

830 

831 

015476 

832 

833 

834 015502 
015506 
015510 
015512 
015514 

835 015520 

836 

837 

838 015520 
015524 
015526 
015530 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 


004737 

000404 

000240 

104000 

000137 


001057 

001000 

104254 

177376 

010000 

000063 


034762 

066006 

016440 

067414 

000001 

037214 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


040360 


016440 


001446 

001420 

001416 

001414 

001444 

001412 


;10AD PARAMETERS AND GENERATE DATA BUFFER 


001174 

001176 


MOV 

#559. .RNDCO 

NOV 

#TA2.RMDA0 

NOV 

#BUFONE.RMBAG 

NOV 

#-258. .RNWCO 

NOV 

#FMT16,RN0F0 

NOV 

#WH!G0,RMCS1J 

THAT 

SECTOR IS NOT BAD 

JSR 

PC .BADSCT 

BR 

3$ 

TYPE 

.SCTNSG 

ENT 


JMP 

28$ 

MOV 

#ONES,STMPO 

NOV 

#1 ,$TNP1 

JSR 

PC.GEN6UF 


.-VERIFY 


3$: 


.•LOAD PUT REGISTER INDEX TABLE 
NOV #PUTINX,R2 

N0V8 #RNDC,(R2>* 

NOVB #RMDA, (R2> ♦ 

N0V8 #RMBA,(R2>* 

NOVB #ftMWC,(R2>* 

NOVB #RM0F.(R2>* 

NOVB #RMCS I , CR2> ♦ 

NOVB #200, (R2) 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
BUS ADDRESS 
WORD COUNT = 1 SECTOR 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 


CALL BAD SECTOR NODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 28$ IF ERROR 


STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 


FOR FORMAT OPERATIION 

;R 2 = BYTE ENTRY POSITION 


4$: 

;f ORMAT THE DRIVE 


JSR 

BR 

NOP 

ENT 

JMP 


PC. PUT 
5$ 


28$ 


; TERMINATE TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 28S IF ERROR 


004737 040024 
004737 040732 


004737 040110 
000404 
000240 
104000 

000137 016440 


004737 054166 
000405 
000240 
104000 


5$: 

.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TINOUT 


;G0 TO TINOUT SUBROUTINE 


;G0 READ STATUS FOR FORMAT OPERATION 


6 $: 


JSR 

BR 

NOP 

ENT 

JMP 


PC. GET 

6$ 


28S 


.•VERIFY NO ERRORS DURING FORMAT 
JSR PC.DTASTS 

BR 7$ 

NOP 

ENT 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 


:Q 0095 


t:0 0096 
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015532 004736 

015534 000137 016440 

015S40 


015540 012737 015550 001124 
015546 000410 


015550 


PC.8CSP)* 

28i 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 28$ IF ERROR 


;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV *8$,$LPERR 

BR 9$ 


.-SKIP TO WRITE OPERATION 


.-LOOP M2 


WRITE. WRITE CHECK DATA 


015550 004737 034032 
015554 154130 


.•PREPARE DEVICE FOR WRITE OPERATION 


JSR 

.WORD 


PC.TSTPRP 

154130 


015556 

000404 

BR 

9$ 

015560 

000240 

NOP 


015562 

104000 

EMT 

28$ 

015564 

000137 016440 

JMP 


853 015570 

854 

855 

856 015570 

857 015570 

858 015576 

859 015604 

860 015612 

861 015616 

862 015622 

863 015626 

864 015632 

865 015636 

866 015642 

867 015646 

QfO 

869 015652 
015656 
015660 
015662 
015664 

870 015670 

871 

872 

015670 


.•WRITE DATA TO THE DRIVE 


012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


004737 


177400 

001414 

MOV 

f-256.,RMWC0 

104260 

001416 

NOV 

#8UF0NE+4.RMBA0 

000061 

001412 

MOV 

#WD! G0.RMCS10 

001555 


MOV 

#PUTINX,R2 

[•MW1 


M0V8 

4fRMDA.(R2>* 

000034 


MOVB 

fRMDC, (R2)+ 

000032 


NO VS 

#RN0F,(R2)* 



M0V8 

#RMBA.(R2) + 



H0V8 

#RNWC.(R2>* 


MOVB 

#RNCS1.(R2>* 

000200 


MOVB 

M200,(R2)+ 

04C560 


JSR 

BR 

NOP 

EMT 

PC.PUT 

ni 

016440 


JMP 28$ 

11$: 

.•SETUP GET INDEX TABLE TO READ 

040024 


JSR 

PC. GETSTS 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALI8RA1E IF ••SKI” OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 


.•CHANGE WORD COUNT 

.-CHANGE MEMORY ADDRESS 

.•WRITE DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 


.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


015674 004737 040732 


.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 
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. EO 009 7 


876 

877 015700 
015704 
015706 
015710 
015712 

378 015716 

879 

880 

881 015716 
015722 
015724 
015726 
015730 
015732 

882 015736 

883 015736 
015742 
015744 
015746 
015750 
015752 

884 015756 

885 015756 
015762 
015764 
015766 
015770 
015772 

886 015776 

887 

888 

889 

890 

891 

892 

893 


897 

898 


004737 040110 
000404 
000240 
104000 

000137 016440 


;G0 READ STATUS FOR WRITE COMMAND 


12S: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. GET 

i?i 


28S 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


041126 

016440 

054166 

016440 

041760 

016440 


;CHECK FOR ERRORS DURING WRITE 


13$: 


14 $: 


15 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.PRIERR 
I3i 


pc.a(SP>* 

28$ 

PC.DTASTS 

ui 


PC.8(SP>* 

28 i 

PC.SECERR 

i si 


pc.acsp)* 

2 si 


50 READ REGISTERS) WITH GE • SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 


OPERATION 

: GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MOPE ERROR CHECKS 
GO TO 28$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 28$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 28$ IF ERROR 


015776 

012737 

016010 

016004 

012703 

000001 

016010 



016010 

040337 

105256 

016014 

004737 

034032 

016020 

154130 



.-CHANGE LOOP ADDRESSES 

MOV #16$.$LPERR 


.-LOOP #3 WRITE CHECK DATA 

MOV #1 ,R3 

81 C R3.8UF TWO-2 


16 $: 


;R3*WCE BIT POSITION 
.CHANGE LAST WORD OF BUFFER 


.-PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 


JSR 
.WORD 


PC.TSTPRP 
15*130 


016022 000404 
016024 000240 
016026 104000 
016030 000137 016440 


BR 

NOP 

EMT 

JMP 


17 $ 


28 $ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ''SKI" OR “PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 


900 016034 

901 


17 $: 
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SEQ 0098 


902 

903 

904 

016034 

016034 

012737 

000051 001412 

:READ 

18$: 

DATA FROM DEVICE 

NOV #WCD.'G0.RMCS10 

905 

016042 

012702 

001555 


MOV 

♦PUTINX.RZ 
#RMDA. (R2)+ 

906 

016046 

112722 

000006 

000032 


M0V8 

907 

016052 

112722 


movb 

#RM0F,(R2>* 

906 

016056 

112722 

000034 


MG ¥8 

fRMDC. (R<)* 

909 

016062 

112722 

000004 


MOVB 

#RMBA.<R2>* 

910 

016066 

112722 

000002 


MOVB 

fRMWC. (R2>* 
#RMCS1.(R2)> 
♦200.(62) 

911 

016072 

112722 



MOVB 

912 

913 

914 

016076 

112712 

000200 


MOVB 

016102 

004737 

040360 


JSR 

PC.PUT 

19i 

28$ 


016106 

016110 

016112 

016114 

000404 

000240 

104000 

000137 

016440 


BR 

NOP 

EMT 

JMP 


; WRITE CHECK DATA DATA COMMAND 
;LOAD OUT REGISTER INDEX TABLE 


915 016120 

916 


19 $: 


918 

919 

016120 

004737 

040024 

JSR 

PC. GETSTS 




.-WAIT FOR COMMAND TO COMPLETE 

920 

921 

016124 

004737 

040732 

JSR 

PC.TIMOUT 




;G0 READ STATUS 

FOR WRITE CHECK 

922 

016130 

004737 

040110 

JSR 

PC. GET 

20i 

016134 

000404 


BR 


016136 

000240 


NOP 



016140 

104000 


EMT 

28$ 


016142 

000137 

016440 

JMP 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


923 016146 

924 

925 


20 $: 

; CHECK FOR ERRORS DURING WRITE 


926 

016146 

004737 

041126 



JSR 

PC.PRIERR 

21 i 

016152 

000405 




BR 


016154 

000240 




NOP 



016156 

104000 




EMT 

pc.b(sp)* 

28i 


016160 

004736 




JSR 


016162 

000137 

016440 


21$: 

JMP 

927 

016166 





#WCE,RMCS2I 

928 

016166 

032737 

040000 

001346 


BIT 

929 

016174 

001030 




BNE 

23$ 

930 

016176 

004737 

054166 



JSR 

PC. DTASTS 

22i 

016202 

000405 




BR 


016204 

000240 




NOP 



016206 

104000 




EMT 

pc.atsp)* 

28i 


016210 

004736 




JSR 


016212 

000137 

016440 



JMP 

931 

016216 




22$: 


RMCS2I .SGDDAT 

932 

016216 

013737 

001346 

001140 


MOV 

933 

016224 

052737 

040000 

001140 


BIS 

#WCE.$GDDAT 

RMCS2I,$8DDAT 

R3,$fHP0 

934 

016232 

013737 

001346 

001142 


MOV 

935 

016240 

010337 

001174 



MOV 

936 

016244 

012737 

105256 

001176 


MOV 

||yF TWO-2, STMP1 

937 

016252 

104337 




EMT 

938 

016254 

000471 




BR 

28$ 


;G0 TO TIMOUT SUBROUTINE 


GO READ RE6ISTERIS) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 


CHECK DATA OPERATION 
GC CHECK FOR PRIMARY ERRORS 
GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 28$ IF ERROR 


;WAS , VCE , ‘ DETECTED?? 

•YES' ' 

60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

.•EXPECTED STATUS 

.RECEIVED STATUS 
RAILING 8IT POSITION 
.■FAILING ADDRESS 


IZRNFAO 

T7 

939 

940 

941 


942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 
953 

956 

957 

958 

959 

960 


961 

962 

963 

964 

965 

966 

967 

968 


969 

970 

971 

972 

973 

974 

975 
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016256 

C16256 

016264 

016272 

016300 

016304 

016306 

016310 

016312 

016312 

016320 

016326 

016332 

016340 

016346 

016354 

016362 

016364 

016366 

016370 

016376 

016400 

016402 

016404 

016404 

016410 

016412 

016414 

016416 

016420 

016424 

016424 

016430 

016432 

016434 

016440 


016440 

016440 

016442 

016444 

016450 

016454 

016460 


016466 

016466 





23$: 




112737 

000022 

1)01526 


wove 

fRNDB.GETINX 

SETUP GET INDEX TABLE 

112737 

000200 

001527 


wove 

#200.GET1NX*1 

SETUP TERHINATOR BYTE 

012737 

016440 

001360 


NOV 

#28$, SNOB I 

SET RNDB INPUT BUFFER = 28$ 

004737 

040110 



JSR 

PC, GET 

GO READ RNDB VIA GET SUBROUTINE 

000402 




BR 

24i 

GO TO 24$ IF NO ERROR 

000240 




NOP 


RETURN HERE IF ERROR 

i 04000 




ENT 


ERROR DEFINED BY GET SUBROUTINE 




24$: 




013737 

001360 

001142 


NOV 

RNDBI.SBDDAT 

DECEIVED DATA 

013737 

105256 

001140 


NOV 

BUF TWO-2, SGDDAT 

.EXPECTED DATA 

050337 

001140 



BIS 

R3. SGDDAT 


012737 

105256 

001134 


NOV 

#8UF TWO-2, SGDADR 

.•EXPECTED ADDRESS 

013737 

001342 

001136 


NOV 

RNBAI ,$6DADR 

.•RECEIVED ADDRESS 

162737 

000002 

001136 


SUB 

#2.S8DADR 

.CORRECT NENORY ADDRESS 

023737 

001134 

001136 


CNP 

SGDADR, $8DADR 

.ADDRESSES OK?? 

001402 




BE 9 


; YES! ! 

104340 




ENT 

340 


000424 




BR 

28$ 


023737 

001140 

001142 

25$: 

CNP 

SGDDAT.SBDDAT 

;DATA OK?? 

001402 




BEQ 

26$ 

; YES! ! 

104341 




ENT 

341 


000416 




BR 

28$ 





26$: 




004737 

041760 



JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 

000405 




BR 

27* 

GO TO 27$ IF NO 5RR0R 

000240 




NOP 


RETURN HERE IF ERROR 

104000 




ENT 


ERROR # DEFINED BY SECERR SUBROUTINE 

004736 




JSR 

PC.a(SP)* 

GO BACK FOR NORE ERROR CHECKS 

000137 

016440 



JNP 

28* 

GO TO 28$ IF ERROR 




27$: 




050337 

105256 



BIS 

R3.BUF TWO-2 

.•RESTORE DATA PATTERN 

006303 




ASL 

R3 

; SHIFT TO NEXT BIT 

001402 




BE® 

28$ 

.'EXIT IF DONE 

000137 

016010 



JNP 

16$ 

.•REPEAT TEST FOR NEXT DATA BI 




28$: 







;;****■ 

.-•TEST 

10 

WRITE, WRITE CHECK NULTIPLE SECTORS 




• 9 * * * 

TST10: 




000004 




SCOPE 


SCOPE CALL 

000240 




NOP 


START Of TEST 

012706 

001100 



NOV 

fSTACK.SP 

INITIALIZE STACK POINTER 

013700 

001276 



NOV 

SBASE.RO 

RO = UNIBUS ADDRESS 

013701 

001466 



NOV 

TSTQUE.R1 

(R1) = DEVICE BEING TESTED 

012737 

000010 

001226 


NOV 

#10,$T£STN 

.SET TEST NUNBER IN APT NAIL BOX 




•LOOP #1 

FORNAT, WRITE, WRITE CHECK 

012737 

010000 

001444 

1$: 

NOV 

#FNT16,RN0F0 

;16 BIT FORNAT 
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976 

977 016474 

978 016474 

979 016502 

980 016510 

981 016516 

982 016524 

983 

984 

985 016532 
016536 


012737 001057 001446 
012737 001000 001420 
012737 104254 001416 
012737 176774 001414 
012737 000063 001412 


004737 034032 
154130 


■LOAD PARAMETERS AND GENERATE DATA BUFFER 
2S: 

MOV #559. .RMDCO 

MOV #TA2,RMDA0 

MOV #8UF0NE.RM8A0 

MOV #-258.*Z,RMWCO 

MOV #UH!G0,RMCS10 


CYLINDER = 559. 

TRACK - 2. SECTOR = 0 
BUS ADDRESS 

WORD COUNT FOR 2 SECTORS (2'S COMP) 
WRITE HEADER AND DATA COMMAND 



016540 

000404 



016542 

000240 



016544 

104000 


986 

987 

988 

016546 

016552 

000137 

017466 

016552 

004737 

034762 


016556 

000405 



016560 

104401 

066006 


016564 

104000 

017466 


016566 

000137 

989 

016572 



990 

016572 

012737 

067456 

991 

016600 

012737 

000001 

992 

993 

994 

995 

016606 

004737 

037214 

016612 

012702 

001555 

996 

016616 

112722 

000034 

997 

016622 

112722 

000006 

998 

016626 

112722 

mmm 

999 

016632 

112722 

000002 

JOOO 

016636 

112722 

000032 

1001 

016642 

112722 

000000 

1002 

1003 

1004 

1005 

1006 

016646 

016652 

112712 

000200 

016652 

004737 

040360 


016656 

000404 



016660 

000240 



016662 

104000 


1007 

10C8 

1009 

016664 

016670 

000137 

017466 

016670 

004737 

040024 


.PREPARE THE DEVICE FOR FORMAT 


JSR 
.WORD 


PC.TSTPRP 
154130 


31: 


4$: 


BR 

NOP 

EMT 

3$ 

JMP 

25$ 

THAT 

SECTOR IS NOT B' 

JSR 

PC, BADSCT 

BR 

4$ 

TYPE 

EMT 

.SCTMSG 

JMP 

25$ 

MOV 

#2EROS,$TMPO 

MOV 

#1 ,$TMP1 

JSR 

PC.GENBUF 


OPERATION 

; PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER ft SELECT DEVICE 
VEPIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF '‘SKr’ OR 'T>IP*' IS SET 
VERIFY RECALIBRATION 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 25$ IF ERROR 


CALL BAD SECTOR MODULE 

GO TO 4$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 25$ IF ERROR 


;L0Al/ PUT REGISTER INDEX TABLE FOR 
MOV IPUTINX.R2 

M0V8 #RMDC,(R2)+ 

M0V8 #RMDA,(R2>* 

MOVB #RMBA.(R2)+ 

M0V8 #RMWC,(R2)+ 

MOVB #RM0F.(R2H 
MOVB #RMCS1,(R2)+ 

MOVB #200, <R2) 


STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 


FORMAT OPE RAT I ION 

;R2 = BYTE ENTRY POSITION 


5$: 

.•FORMAT THE DRIVE 


.•TERMINATE TABLE 


JSR 

BR 

NOP 

EMT 

JMP 


PC, PUT 

6$ 


25$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 


6 $: 

.•SETUP GET INDEX TABLE TO READ ALL REGISTERS ^ ,, 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


:Q 0100 


fc o 
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.WAIT FOP COMMAND TO COMPLETE 
JSR PC,TIMOUT 


1011 





016674 

004737 

040732 

1012 




1013 




1014 

016700 

004737 

040110 


016704 

000404 



016706 

000240 



016710 

104000 



016712 

000137 

017466 

1015 

016716 



1016 




1017 




1018 

016716 

004737 

05066 


016722 

000405 



016724 

000240 



016726 

104000 



016730 

004736 



016732 

000137 

01 7466 

1019 

016736 




; GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR FORMAT OPERATION 


7$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. GET 

7$ 


25$ 


; VEPIF Y NO ERRORS DURING FORMAT 


8 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.DTASTS 

8 $ 


PC.iCSP)* 

25* 


GO READ REGISTER(S) WITH GET SUBROUTiNE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GU TO 8$ IF NG ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 


1020 
1021 

1022 016736 

1023 

1024 


012737 017010 


.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
#9$.$LPERR 


1025 

1026 

1027 

1028 

1029 

1030 

1031 


016744 

016752 

016760 

016766 

016774 

017002 

01700b 


1032 

1033 

1034 

1035 

1036 017010 

1037 

1038 

1039 

1040 017010 
017014 


012737 

012737 

012737 

012737 

012737 

004737 

000410 


177000 

104254 

000060 

067414 

000001 

037214 


001124 

MOV 


.•REGENERATE 

001414 

MOV 

001416 

MOV 

001412 

MOV 

001174 

MOV 

001176 

MOV 


JSR 


BR 


1 

#-256.*2,RMWC0 
08UFONE.RMBAO 
#WD,RMCS10 
#ONES. $TMP0 
#1 ,$TMP1 
PC.GENBUF 
10 * 


.•CHANGE WORD COUNT 

.•CHANGE BUS ADDRESS 
.•WRITE DATA 

.•STARTING ADDRESS OF PATTERN 
; RANGE OF PATTERN 

.•SKIP TO WRITE OPERATION 


;LOOP #2 
9$: 


WRITE. WRITE CHECK 


004737 034032 
154130 


.PREPARE DEVICE FOR WRITE OPERATION 


JSR 
.WORD 


PC.TSTPRP 
154130 



017016 

000404 



BR 

10$ 


017020 

000240 



NOP 



017022 

104000 



EMT 

25$ 


017024 

000137 

017466 

10$: 

JMP 

1041 

1042 

1043 

017030 



DATA TO 

THE 1 

:WRITE 

IlS: 

1044 

017030 




fWD 

1045 

017030 

012737 

000061 

001412 

MOV 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER C SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr' OR ‘W IS SET 

VERIFY RECALIBRATION 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


.•WRITE DATA COMMAND 


SEQ 0101 


SEQ 0102 


004737 040024 


004737 040732 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


012737 

000410 


040110 


017466 


041126 


017466 

054166 


017466 

041760 


017466 


017232 001124 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TJMOUT 


GO READ STATUS FOR WRITE COMMAND 
JSR PC -GET 

BR 13i 
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1046 017036 012702 001555 MOV fPUTJNX.R; 

1047 017042 112722 000006 MOVB #RMDA, (R2 

1048017046 112722 000034 MOVB #RMDC(R2 

1049 017052 112722 000032 MOVB #RMOF . R2 

1050 017056 112722 000004 MOVB "2 

1051 017062 112722 000002 MOVB #RMWC,(R2 

1052 017066 112722 00 

1053 017072 112722 000200 MOVB #200,(RZ>< 

1054 

1055 017076 004737 040360 JSR PC. PUT 

117102 000404 BR 12$ 

>17104 000240 NOP 

J17106 104000 EMT 

017110 000137 017466 JMP 25$ 

105f» 017114 12$: 

1057 

1058 .-SETUP GET INDEX TABLE TO 

017114 004737 040024 JSR PC.GETSTS 

1059 

1060 .-WAIT FOR COMMAND TO COHPI 

017120 004737 040732 JSR PC.TJMOUT 

1062 ;G0 READ STATUS FOR WRITE 

1063 017124 004737 040110 JSR PC.GET 

017130 000404 BR 13$ 

017132 000240 NOP 

017134 104000 EMT 

017136 000137 017466 JMP 25$ 

1064 017142 13$: 

1065 

1066 .-CHECK FOR ERRORS DURING i 

1067 017142 004737 041126 JSR PC.PRIERR 

017146 000405 BR 14$ 

017150 000240 NOP 

017152 104000 EMT 

017154 004736 JSR PC.B(SP)* 

017156 000137 017466 JMP 25$ 

1068 017162 14$: 

1069 017162 004737 054166 JSR PC.DTASTS 

017166 000405 BR 15$ 

017170 000240 NOP 

017172 104000 EMT 

017174 004736 JSR PC.a(SP)* 

017176 000137 017466 JMP 25$ 

1070 017202 15$: 

1071 017202 004737 041760 JSR PC.SECERR 

017206 000405 BR 16$ 

017210 000240 NOP 

017212 104000 EMT 

017214 004736 JSR PC-i(SP)* 

01 7 216 000137 017466 JMP 25$ 

1072 017222 16$: 

1073 

1074 .-CHANGE LOOP ADDRESSES 

1075 017222 012737 017232 001124 MOV #17$.$LPE 

1076 017230 000410 BR 18$ 

1077 


.-LOAD PUT REGISTER INDEX TABLE 


.-TERMINATE TABlE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BV PUT SUBROUTINE 

GO TO 25$ IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


.-GO TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV GET SUBROUTINE 

GO TO 25$ IF ERROR 


.-CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 

BR 14$ 


PC.B(SP)* 

25$ 

PC.DTASTS 

15$ 


pc.atsp)* 

25$ 

PC.SECERR 

16$ 


PC.B(SP)* 

25$ 


.-CHANGE LOOP ADDRESSES 

MOV #17$,$LPERR 

BR 18$ 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 

.-GO TO 14$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR 0 DEFINED BV PRIERR SUBROUTINE 

.-GO BACK FOR MORE ERROR CHECKS 

.-GO TO 25$ IF ERROR 

.-GO VERIFY RESULTS OF DATA TRANSFER 

.-GO TO 15$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR 0 DEFINED BV DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

.-GO TO 25$ IF ERROR 

.-GO CHECK FOR SECONDARY ERRORS 

;G0 TO 16$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR 0 DEFINED BV SECERR SUBROUTINE 

.-GO BACK FOR MORE ERROR CHECKS 

;G0 TO 25$ IF ERROR 


.-SKIP TO NEXT OPERATION 


czrnfao 

TIC 

1078 

1079 

1080 
1081 
1082 

1083 

1084 


1085 

1086 

1087 

1088 
"*089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 


1100 

1101 

1102 

1103 

1104 

1105 

1106 
1107 


1108 

1109 

1110 
1111 
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n b 


SEQ 0103 


017232 


017232 004737 034032 
017236 154130 


.-LOOP #3 
17 $: 


WRITE CHECK 


.•PREPARE DEVICE FOR READ OPERATION 


JSR 
.WORD 


PC.TSTPRP 

154130 


017240 

000404 



BR 

18$ 

017242 

000240 



NOP 


017244 

104000 



EMT 


017246 

000137 

017466 


JMP 

25$ 

017252 



18$: 






.READ DATA FROM DEVICE 

017252 



19$: 



017252 

012737 

000051 001412 


MOV 

«WCD!G0,RMCS10 

01 7260 

012702 

001555 


MOV 

#PUTINX.R2 

017264 

112722 

000006 


M0V8 

#RMDA.(R2>* 

017270 

112722 

000032 


M0V8 

#RM0F , (R2> ♦ 

017274 

112722 

000034 


Move 

#RMDC - <R2 ) ♦ 

017300 

112722 

000004 


MOVB 

#RMBA, <R2) ♦ 

017304 

112722 

000002 


movb 

#RMWC. (R2>* 

017310 

112722 

000000 


MOVB 

#RMCS1,(R2)* 

017314 

112712 

000200 


MOVB 

#200, (R2) 

017320 

004737 

040360 


JSR 

PC .PUT 

017324 

000404 



BR 

20$ 

017326 

000240 



NOP 


017330 

104000 



EMT 


017332 

000137 

017466 


JMP 

25$ 

017336 



20$: 






.‘SETUP 

GET INDEX TABLE TO READ - 

017336 

004737 

040024 


JSR 

PC, GETSTS 




.-WAIT FOR COMMAND TO COMPLETE 

0173*2 

004737 

040732 


JSR 

PC. TIMOUT 




:G0 READ STATUS 

FOR WRITE CHECK 

017346 

004737 

040110 


JSR 

PC. GET 

017352 

000404 



BR 

21* 

017354 

000240 



NOP 


017356 

104000 



EMT 


017360 

000137 

017466 


JMP 

25$ 

017364 



21$: 






.•CHECK 

FOR ERRORS DURING WRITE 

017364 

004737 

041126 


JSR 

PC.PRIERR 

017370 

000405 



BR 

22$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI'’ OR “PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


.-READ DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 


rciwi tun 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


;G0 CHECK FOR PRIMARY ERRORS 
;S0 TO 22$ IF NO ERROR 


t 


ft 0 
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SEQ 0104 


017372 

000240 




NOP 


017374 

104000 




EMT 

PC,8(SP)* 

25i 

017376 

004736 




JSR 

Cl 7400 
017404 

000137 

017466 


22$: 

JMP 

PC, DTASTS 
23i 

017404 

004737 

054166 



JSR 

017410 

000405 




BR 

017412 

000240 




NOP 


017414 

104000 




EMT 

pc.a(sp)* 

25* 

017416 

004736 




JSR 

01 /420 
01 7424 

000137 

017466 

041760 


23$: 

JMP 

PC.SECERR 

24* 

017424 

004737 



JSR 

01 7430 

000405 




BR 

017432 

000240 




NOP 


017434 

104000 




EMT 

pc.a<sp)* 

25* 

Cl 7436 

004736 




JSR 

017440 

017444 

000137 

017466 


24$: 

JMP 

#SSEI ,RMOFO 

017444 

032737 

001000 

001444 


BIT 

017452 

001005 




BNE 

25$ 

017454 

052737 

001000 

001444 


BIS 

#SSEI,RMOFO 

017462 

017466 

000137 

016474 


25$: 

JMP 

2$ 


1122 

1123 


01/466 

017466 

017470 

017472 

017476 

017502 

017506 

1124 

1125 

1126 

1127 

1128 017514 

1129 

1130 

1131 017514 
017520 


RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY DTASTS SUBROUTINE 
BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 24$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

TEST 16 BIT MODE W/ SSEI SET ? 

YES ' 1 

SET SSEI IN OFFSET AND 
TEST AGAIN 


■ ***************** *********************************^************ 
•TEST 11 WRITE, READ W/ IMPLIED SEEK 


TST11 : 


000004 


SCOPE 

000240 


NOP 

012706 

001100 

MOV 

013700 

001276 

MOV 

013701 

001466 

MOV 

012737 

000011 001226 

MOV 


fSTACK.SP 
SBASE.RO 
TSTOUi.Rl 
#11 ,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(Rl) = DEVICE BEING TESTED 

; SET TEST NUMBER IN APT MAIL BOX 


;L0 OP #1 
1 $: 


FORMAT, WRITE, READ 


004737 034032 
154130 


.•PREPARE THE DEVICE FOR FORMAT 


JSR 
.WORD 


PC.TSTPRP 
154130 


1132 

1133 


017522 000404 
017524 000240 
017526 104000 
017530 000137 020706 


BR 

NOP 

EMT 

JMP 


2 $ 


31$ 


OPERATION 

; PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF •‘SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 31$ IF ERROR 


.-LOAD PARAMETERS AND GENERATE DATA BUFFER 



Til 



WRITE. 

READ W/ 

1134 

017534 


1135 

017*534 

012737 

1136 

017542 

013737 

1137 

017550 

012737 

1138 

017556 

012737 

1139 

017564 

012737 

1140 

017572 

012737 

1141 

017600 

012737 

1142 



1143 




01 ’606 

004737 


017612 

000405 


017614 

104401 


017620 

104000 


01 7622 

000137 

1144 

017626 


1145 

017626 

012737 

1146 

017634 

012737 

1147 

017642 

004737 

1148 



1149 



1150 

017646 

012702 

1151 

017652 

112722 

1152 

01 7656 

112722 

1153 

017662 

112722 

1154 

017666 

112722 

1155 

017672 

112722 

1156 

017676 

112722 

1157 

017702 

112712 

1158 

017706 


1159 



1160 



1161 

017706 

004737 


017712 

000404 


017714 

000240 


017716 

104000 


017720 

000137 

1162 

017724 


1163 



1164 




017724 

004737 

1165 



1166 




017730 

004^37 

1167 



1168 



1169 

017734 

004737 


017740 

000404 


017742 

000240 


017744 

104000 


017746 

000137 

1170 

017752 


1171 



1172 



1173 

017752 

004737 


017756 

000405 


017760 

000240 


001057 

001446 

001000 

104254 

177376 

010000 

000063 


034762 

066006 

020706 

067414 

000001 

037214 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


0014*6 

020710 

001420 

001416 

001414 

001444 

001412 


2S: 


001174 

001176 


MOV 

#559. .RMDCO 

.-CYLINDER = 559. 

MOV 

RMDC0.32S 

.-SAVE DESIRED CYLINDER 

MOV 

#TA2.RMDA0 

.•TRACK = 2, SECTOR = 0 
.BUS ADDRESS 

MOV 

#8UF ONE , RM8A0 

MOV 

#-258. .RMWCO 

;2 ♦ 256. WORDS <2’S COMP) 

MOV 

#FMT16.RM0F0 

;16 BIT FORMAT 

MOV 

#WH ! GO . RMC S 1 0 

.•WRITE HEADER AND DATA COMMAND 

THAT 

JSR 

SECTOR IS NOT BAD 
PC.BADSCT 

.'CALL BAD SECTOR MODULE 

BR 

3$ 

;G0 TO 3S IF NO ERROR 

TYPE 

.SCTMSG 

.TYPE BAD SECTOR MESSAGE 

EMT 

JMP 

31S 

.•ERROR # DEFINED BY BADSCT SUBROUTINE 
;G0 TO 31 S IF ERROR 

MOV 

#ONES,*TMPO 

.•STARTING ADDRESS OF PATTERN 

MOV 

#1.STMP1 

.•RANGE OF PATTERN 

JSR 

PC.GENBUF 

;G0 GENERATE BUFFER FOR FORMAT 


35: 


;L0A0 PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 


4$: 


MOV #PUTJNX.R2 

MOVB #RMDC.(R2)+ 

MOVB #RMDA.(R2)* 

M0V8 #RMBA, (R2) ♦ 

MOVB #RNWC.(R2)* 

MOVB #RM0F.(R2>* 

MOVB #RMCSl . (R2) ♦ 

MOVB #200 , (R2) 


;R2 = BYTE ENTRY POSITION 


.•FORMAT THE DRIVE 


55: 


:sr 

9R 

NOP 

EMT 

JMP 


PC. PUT 

55 


315 


.•TERMINATE TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 55 IF NO FRROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 315 IF ERROR 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

J SR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR FORMAT OPERATION 


65: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. GET 
65 


315 


.•VERIFY NO ERRORS DURING FORMAT 
JSR PC.DTASTS 

BR 75 

NOP 


GO READ REGISTERS' WITH GET SUBROUTINE 

GO TO 65 If NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 315 IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 75 IF NO ERROR 
RETURN HERE IF ERROR 
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SEO 0106 


1174 

1175 

1176 

1177 

1178 
• 179 
1180 
1181 
1182 

1183 

1184 

1185 

1186 


017762 104000 
017764 004736 
017766 000137 020706 
017772 


017772 012737 020002 001124 
020000 000410 


7$: 


EMT 

JSR 

JMP 


pc.w(SP)+ 

3ii 


ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 31$ IF ERROR 


;MOVF LOOP ADDRESSES TO NEXT OPERATION 
MOV m.SLPERR 

BR 9$ 


.-SKIP TO WRITE OPERATION 


. *************** r*** ************************************ ******** 


020002 


020002 004737 034032 
020006 154130 


.-LOOP #2 
8 $: 

.-PREPARE DEVICE 
JSR 
.WORD 


WRITE. READ 


FOR WRITE OPERATION 


PC.TSTPRP 
15*130 



020010 

000404 



BR 

9$ 


020012 

000240 



NOP 



020014 

104000 



EMT 

31$ 


020016 

000137 

020706 

9$: 

JMP 

1187 

020022 




JYO.RMDCO 

1188 

020022 

012737 

000000 

00 i 446 

MOV 

1189 

1190 

1191 

020030 

012737 

000005 

001412 

MOV 

#SEEK!G0.RMCS10 

020036 

004737 

040360 


JSR 

PC .PUT 

ioi 

020042 

000404 



BR 


020044 

000240 



NOP 



020046 

104000 



EMT 

31$ 


020050 

000137 

020706 


JMP 


1192 020054 

1193 

1194 


10 $: 


i i 

1195 

1196 

020054 

004737 

040024 

JSR 

PC. GETSTS 




.•WAIT FOR COMMAND TO COMPLETE 

1197 

1198 

020060 

004737 

040732 

JSR 

PC. TIMOUT 




;G0 GET REGISTER STATUS 

1199 

020054 

004737 

04C1I0 

JSR 

PC .GET 

ni 


020070 

000404 


BR 


020072 

000240 


NOP 



020074 

104000 


EMT 

31$ 


020076 

000137 

020706 

JMP 

1200 

1201 

1202 

020102 



11$: 





.•VERIFY RESULTS 

OF SEEK COMMAND 

1203 

020102 

004737 

046550 

JSR 

PC.SEKSTS 

12i 

020106 

000405 


OR 


020110 

000240 


NOP 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER l SELECT DEVHE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 31$ IF ERROR 

.-SEEK 10 FIRST CYLINDER 

.•WRITE SCEK COMMAND 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 31$ IF ERROR 


ILL nwuiw'Lng 

;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 31$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
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SEO 0107 


020112 

020114 

020116 

120a 020122 

1205 

1206 

1207 020122 

1208 020122 

1209 020130 

1210 020136 

1211 020144 

1212 020152 

1213 020156 

1214 020162 

1215 020166 

1216 020172 

1217 020176 

1218 020202 

1219 020206 

1220 

1221 020212 
02G216 
020220 
020222 
020224 

1222 020230 

1223 

1224 

020230 

1225 

1226 

1227 020234 
020240 
020242 
020244 
020246 

1228 020252 

1229 

1230 

1231 020252 
020256 
020260 
020262 
020264 
020266 

1232 020272 

1233 020272 
020276 
020300 
020302 
020304 
020306 

1234 020312 

1235 020312 
020316 
020320 
020322 


104000 

004736 

000137 020706 


013737 

012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


12S: 


EMT 

jsr 

JMP 


PC.8(SP>* 

3li 


ERROR # DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 31$ IF ERROR 


020710 001446 

177400 001414 

104260 001416 

000061 001412 

001555 

000006 

000034 

000032 

000004 

000002 

000000 

000200 

040360 


020706 


004737 040732 


; SETUP PARAMETERS AND EXCUTE WRITE DATA 
\Z%: 

MOV 32S.RMDCO 

MOV #-256..RMWC0 

MOV #8UF ONE ♦4 , RMBAO 
MOV #WD!G0.RMCS10 

MOV #PUTINX,R2 

MOVB #RMDA,(R 2)* 

MOVB #RMDC,(R2)* 

MOVB #RMOF , <R2) ♦ 

MOVB #RM8A, (R2)+ 

MOVB #RMWC.(R2>* 

MOVB #RMCSi , <R2) ♦ 

MOVB #200. (R2)+ 


COMMAND 

.•RESTORE CYLINDER 

.‘CHANGE WORD COUNT 

.•CHANGE BUS ADDRESS 

.WRITE DA FA COMMAND 

;LOAD PUT REGISTER INDEX TABLE 


.•TERMINATE TABLE 


14$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC.PUT 

14$ 


31$ 


GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 31$ IF ERROR 


.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


004737 

040110 


JSR 

000404 



BR 

000240 



NOP 

104000 



EMT 

000137 

020706 

15$: 

JMV 



.•CHECK 

FOR E 

004737 

041126 


JSR 

000405 



BR 

000240 



NOP 

104000 



EMT 

004736 



JSR 

000137 

020706 

16$: 

JMP 

004737 

054166 


JSR 

000405 



BR 

000240 



NOP 

104000 



EMT 

004736 



JSR 

000137 

020706 

17$: 

JMP 

004737 

041760 


JSR 

000405 



BR 

000240 



NOP 

104000 



EMT 


;G0 READ STATUS FOR WRITE COMMAND 
PC. GET 

isi 


31$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 31$ IF ERROR 


IS DURING WRITE OPERATION 
PC.PRIERR ;G0 CHECK FOR PRIMARY ERRORS 

16$ ;G0 TO 16$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR # DEFINED BY PRIERR SUBROUTINE 
PC.iCSPH .‘GO BACK FOR MORE ERROR CHECKS 

3li ;G0 TO 31$ IF ERROR 

PC.DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 

17i ;G0 TO 17$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR # DEFINED BY DTASTS SUBROUTINE 
PC.8(SP>* .‘GO BACK FOR MORE ERROR CHECKS 

3li ;G0 TO 31$ IF ERROR 

PC.SECERR ;G0 CHECK FOR SECONDARY ERRORS 

18$ ;G0 TO 18$ IF NO ERROR 

.•RETURN HERE IF ERROR 
.•ERROR # DEFINED BY SECERR SUBROUTINE 
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SEQ 0108 


1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 
12*8 


020324 004736 
020326 000137 020706 
020332 


C20332 012737 C20342 001124 
020340 000410 


020342 


020342 004737 034032 
020346 154130 


18S: 


JSR 

JMP 


pc.acsp'* 

3i i 


.•CHANGE LOOP ADDRESSES 

MOV #19$,$LPERR 

BR 20$ 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 31$ IF ERROR 


.-SKIP TO NEXT OPERATION 


.•LOOP #3 
19$: 

.-PREPARE DEVICE 
JSR 
.WORD 


READ 


FOR READ OPERATION 


PC.TSTPRP 
154130 



020350 

000404 



BR 

20$ 


020352 

000240 



NOP 



020354 

104000 



EMT 

31$ 


020356 

000137 

020706 

20$: 

JMP 

1249 

020362 




fO.RMDCO 

1250 

020362 

012737 

000000 

001446 

MOV 

1251 

1252 

1253 

020370 

012737 

000005 

001412 

MOV 

#SEEK!G0,RMCS10 

020376 

004737 

040360 


JSR 

PC, PUT 

020402 

000404 



BR 

21$ 


020404 

000240 



NOP 



020406 

1C4000 



EMT 

31$ 


020410 

000137 

020706 


JMP 


1254 020414 

1255 

1256 


21 $: 


1257 

1258 

020414 

004737 

040024 

JSR 

PC, GETSTS 




.•WAIT FOR COMMAND TO COMPLETE 

1259 

1260 

020420 

004737 

040732 

JSR 

PC. TIMOUT 




;G0 GET REGISTER STATUS 

1261 

020424 

004737 

040110 

JSR 

PC.GET 

22§ 


020430 

000404 


BR 


020432 

000240 


NOP 



020434 

104000 


EMT 

31$ 


020436 

000137 

020706 

JMP 


1262 020442 

1263 

1264 

1265 020442 
020446 
020450 
020452 


004737 046550 
000405 
000240 
104000 


22 $: 

; VERIFY RESUTS OF SEEK COMMAND 
JSR PC. SEKSTS 

BR 23i 

NOP 
EMT 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR C0NTR01 LER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •‘SKI'' OR "PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 31$ IF ERROR 

.-SEEK TO FIRST CYLINDER 

; WRITE SEEK COMMAND 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY PUT SUBROUTINE 

60 TO 31$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 
;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER (S) WITH GET SUBROUTINE 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 31$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 


SEQ 0109 
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020454 

020456 

1266 

1267 020462 

1268 

1269 

1270 020462 

1271 020462 

1272 020470 

1273 02G476 

1274 020504 

1275 020510 

1276 020514 

1277 020520 

1278 020524 

1279 020530 

1280 020534 

1281 020540 

1282 

1283 020544 
020550 
020552 
020554 
020556 

1284 020562 

1285 

1286 

020562 

1287 

1288 

1289 020566 
020572 
020574 
020576 
020600 

1290 020604 

1291 

1292 

1293 020604 
020610 
020612 
020614 
020616 
020620 

1294 020624 

’295 020624 

020630 

020632 

020634 

020636 

020640 

1296 020644 

1297 020644 
020650 
020652 
020654 
020656 


004736 

000137 020706 


013737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


004737 


004737 

000404 

000240 

104000 

000137 


00** 737 
000405 
000240 
104000 
004736 
000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 


JSR 

JMP 


pc £ a<sp>* 

3ii 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 31* IF ERROR 


23S: 


020710 001446 
000071 001412 

105264 001416 

001555 
000006 
000032 
000034 
000004 
000002 
000000 
00020C 

040360 

020706 

040732 

040110 

020706 


: SETUP PARAMETERS AND EXCUTE READ DATA COMMAND 
$ 4 *: 

MOV 32S,RMDC0 

MOV #RD!G0,RMCS10 

MOV #8UFTW0*4.RMBA0 

MOV #PUTJNX,R2 

MOVB #RMDA,(R2>+ 

Move #RMOF , CR2) ♦ 

MOVB #RMDC.<R2>* 

MOVB #RMBA, (R2) ♦ 

MOVB #RMWC. CR2) ♦ 

MOVB #RMCS1.(R2>* 

MOVB #200. (R2) 


RESTORE CYLINDER 
READ DATA COMMAND 
LOAD STARTING BUFFER ADDRESS 
LOAD PUT REGISTER INDEX TABLE 


25*: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. PUT 
25$ 


31* 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 25S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 31S IF ERROR 


.WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR READ OPERATION 


26*: 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 

2 6i 


31* 


041126 

9 vnb vn 

* WM « 

JSR 

BR 

NOP 

EMT 

JSR 

020706 

27*: 

JMP 

054166 


JSR 

BR 

NOP 

EMT 

JSR 

020706 

28* : 

JMP 

041760 


JSR 

BR 

NOP 

EMT 

JSR 


; CHECK FOR ERRORS DURING READ 
PC.PRIERR 
27$ 


PC.iCSPH 

31$ 


PC.DTASTS 

28$ 


pc.acsp)* 

31$ 

PC.SECERR 

29$ 


pc.a<sp>+ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 26* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 31* IF ERROR 


OPERATION 

* GO CHECK FOR PRIMARY ERRORS 
GO TO 27* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 31* IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 28* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 31* IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 29* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
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1298 

1299 


1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 


020660 

020664 

020664 

020670 

020672 

020674 

020676 

020700 

020702 

020706 


1310 

1311 

1312 

1313 

1314 

1315 020740 

1316 020740 

1317 020746 

1318 020754 

1319 020754 

1320 020762 

1321 020770 
020776 
021004 


1322 

1330 

1331 


m 


000137 020706 

004737 037462 

104260 

105264 

000404 

000240 

104000 

000137 020706 


291: 


30$: 


JMP 

JSR 

.WORD 

.WORD 

8R 

NOP 

EMT 

JMP 


31$ 

PC.CMPBUF 
BUF ONE *4 
BUF TWO+4 
30$ 


31$ 


;G0 TO 31$ IF ERROR 

;G0 COMPARE WRITE. READ DATA BUFFERS 

.'STARTING ADDRESS OF WRITE BUFFER 
^STARTING ADDRESS OF READ BUFFER 
GO TO 30$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY CMPBUF SUBROUTINE 
GO TO 31$ IF ERROR 


020706 

020706 

000401 


31$: 

BR 

33$ 


020710 

000000 


32$: 

.WORD 

0 

.STORAGE FOR DATA CYLINDER 

020712 



33$: 







;;****< 

.-•TEST 

12 

READ, WRITE 

CHECK W/ HEAD SWITCHING 

020712 

020712 

020714 

020716 

020722 

020726 

020732 

000004 
0002 '.0 
012706 
013700 
013701 
012737 

001100 

001276 

001466 

000012 

TST12: 

001226 

SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

#STACK,SP 

S8ASE.R0 

TSTQUE.R1 

#12,$TESTN 

.•SCOPE CALL 

.•START OF TEST 

.•INITIALIZE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;(R1) = DEVICE BEIWS TESTED 

;;SET TEST NUMBER IN APT HAIL BOX 


.LOOP #1 


READ. WRITE CHECK 


.-LOAD PARAMETERS AND GENERATE DATA BUFFER 


021004 

021010 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

154130 


001036 

010000 

001057 

104254 

177000 

000070 


034032 


001420 

001444 

001446 

001416 

001414 

001412 


1$: 

MOV 


MOV 

2$: 

MOV 


MOV 


MOV 


MOV 


3$: 


#TA2!30. .RMDAO 
#FMT16.RM0F0 

#559. .RMDCO 
#8UF0NE.RM8A0 
#-256.*2.RMWC0 
fRD.RMCSIO 


.•TRACK = 2. SECTOR = 30. 

;16 BIT FORMAT 

.CYLINDER = 559. 

;BUS ADDRESS 

;WORD COUNT FOR 2 SECTORS <2*S COMP) 
.-READ DATA COMMANO 


.PREPARE THE DEVICE FOR FORMAT 


JSR 

.WORD 


PC.TSTPRP 
154130 


021012 000404 
021014 000240 
021016 104000 
021020 000137 


021734 


BR 

NOP 

EMT 

JMP 


4$ 


26$ 


OPERATION 

; PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF **SKI‘’ OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 26$ IF ERROR 
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1334 021024 

1335 

1336 

1337 021024 

1338 021032 

1339 021036 

1340 021042 

1341 021046 

1342 021052 

1343 021056 

1344 021062 

1345 021066 

1346 021072 

1347 

1343 021072 
021076 
021100 
021102 
021104 

1349 021110 

1350 

1351 


1374 

1375 

1376 

1377 

1378 



11272 
112722 
112722 
112712 


004737 

000404 

000240 

104000 

000137 


021110 004737 


1352 

1353 

021114 

1354 

1355 

1356 021120 
021124 
021126 
021130 
021132 

1357 021136 

1358 

1359 

1360 021136 
021142 
021144 
021146 
021150 
021152 

1361 021156 

1362 

1363 

1364 021156 

1365 021156 

1369 021164 

1370 021170 

1371 021174 

1372 021200 

1373 021204 
021210 
021214 
021220 


004737 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 


000005 

001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


040360 

021734 

040024 

040732 

040110 

021734 

046550 

021734 


000071 

001555 

000006 

000034 

000032 

000004 

000002 

000000 

000200 


001412 


4J: 

.-SETUP PARAMETERS AND SEEK TO GET DRIVE ON CYLINDER 


5$: 


6 $: 


NOV 

NOV 

N0V8 

N0V8 

NCV8 

N0V8 

N0V8 

movb 

M0V8 


JSR 

8R 

NOP 

ENT 

JMP 


#SEEK!G0,RMCS10 
#PUTINX,R2 
#RMDC,(R2>* 
#RMDA, (R2) ♦ 
#RMBA.(R2)+ 
#RMWC.(R2>* 
#RMOF , (R2) ♦ 
#RNCS i , <R2> ♦ 
#200, (R2) 


PC, PUT 
6$ 


.-LOAD SEEK COMMAND 

;R2 = BYTE ENTRY POSITION 


26$ 


.-TERMINATE TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED 8Y PUT SUBROUTINE 

GO TO 26$ IF ERROR 


.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC.GETSTS 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 READ REGISTER STATUS 
JSR PC. GET 

BR 7$ 

NOP 

ENT 

JMP 26$ 

7$: 

;G0 VERIFY RESULTS OF SEEK 


8 $: 


JSR 

BR 

NOP 

ENT 

JSR 

JMP 


PC.SEKSTS 

8 $ 


pc.acsp)* 

26$ 


001412 


021224 004737 040360 


;READ DATA FROM THE DRIVE 
$$: 

MOV fRD.'GO.RMCSIO 

MOV #PUTINX,R2 

H0V8 #RNDA, <R2) ♦ 
MOVB #RMDC,<R2H 
MOVB fRMOF , (R2) ♦ 
MOVB fRMBA, (R2) ♦ 
MOVB #R MWC.(R2)+ 

MOVB #RMCS1.(R2)* 

MOVB #200, <R2) ♦ 

JSR PC, PUT 


;G0 TO GETSTS SUBROUTINE 
;G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 26$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 


.-READ DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 


.-TERMINATE TABLE 

:G0 W'MTE REGISTER'S) WITH PUT SUBROUTINE 


SEO 0111 


SEO 0112 
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021 23C 

000404 


021232 

000240 


021234 

104000 


021236 

000137 

1379 

021242 


1380 



1381 

021242 

004737 

1382 



1383 

021246 

004737 

1384 



1385 



1386 

021252 

004737 


021256 

000404 


021260 

000240 


021262 

104000 


021264 

000137 


1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 


1396 

1397 


1398 

1399 


1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 


021270 

021270 

021276 


021300 

021304 

021306 

021310 

021312 

021314 

021320 

021320 

021324 

021326 

021330 

021332 

021334 

021340 

021340 

021344 

021346 

021350 

021352 

021354 

021360 


021360 

021366 


021370 


032737 

001030 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


021734 

040024 

040732 

040110 

021734 

000040 001400 

041126 

021734 

054166 

021734 


1 0S : 


BP 

NOP 

ENT 

JNP 


10* 

261 


GO TO 10* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 26* IF ERROR 


; SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC. GET STS ;G0 TO GETSTS SUBROUTINE 


; WAI T FOR COMMAND TO COMPLETE 
JSR PC.TINOUT 

; GO READ STATUS FOR READ COMMAND 


JSR 

BR 

NOP 

EMT 

JNP 


PC.GET 

ni 


26* 


;G0 TO T1M0UT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 11* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 26* IF ERROR 


.•CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST. IF SO 
•DO NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 

11 BIT #SSE.RMER2I .IS ’SSE’ BIT SET ? 

BNE 14* ;BR IF YES 


; CHECK FOR ERRORS DURING READ 


12 *: 


13*: 


JSR 

BR 

NOP 

EMT 

JSR 

JHP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC, PR I ERR 

12i 


PC.i(SP)* 

26$ 

PC.DTASTS 

13$ 


PC.8(SP>* 

26$ 


004737 

041760 

JSR 

PC.SECERR 

14$ 

000405 


BR 

000240 


NOP 


104000 

004736 


EMT 

JSR 

PC.a(SP)* 

26$ 

000137 

021734 

JMP 



14*: 




.•CHANGE LOOP ADDRESSES 

012737 

021370 001124 

MOV 

#15*.*LPERR 

000410 

BR 

16* 



•LOOP #2 

WRITE CHECK 1 


OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 12* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PR I ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26* IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 13* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MOPE ERROR CHECKS 
GO TO 26* IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 14* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26* IF ERROR 


;SKIP TO NEXT OPERATION 




15*: 
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SEQ 0113 


1411 

1412 02137C 004737 034032 

021374 154130 


.•PREPARE DEVICE FOR READ OPERATION 


JSR 
.WORD 


PC.TSTPRP 
15*130 



021376 

000404 


BR 

16$ 


021400 

000240 


NOP 



021402 

104000 


EMT 

26$ 


021404 

000137 

021734 

JMP 

1413 

021410 


16$: 


RSEEK.'GO.RMCSIO 

1414 

1415 

1416 

021410 

012737 

000005 001412 

MOV 

021416 

004737 

040360 

JSR 

PC. PUT 

17i 

021422 

000404 


BR 


021424 

000240 


NOP 



021426 

104000 


EMT 

26$ 


021430 

000137 

021734 

JMP 


1417 021434 

1418 

1419 


17$: 


r i w 

1420 

1421 

021434 

004737 

040024 

JSR 

PC. GETSTS 




.WAIT FOR COMMAND TO COMPLETE 

1422 

1423 

021440 

004737 

040732 

JSR 

PC. TIMOUT 




;G0 READ REGISTER STATUS 

1424 

021444 

004737 

040110 

JSR 

PC, GET 

isi 

021450 

000404 


BR 


021452 

000240 


NOP 



021454 

104000 


EMT 

26$ 


021456 

000137 

021734 

JMP 

1425 

021462 



18$: 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE $ VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF * 'SKI ” OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 26$ IF ERROR 

.-LOAD SEEK COMMAND 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


1426 

1427 

1428 021462 
021466 
021470 
021472 
021474 
021476 

1429 021502 

1430 

1431 

1432 021502 

1433 021502 

1434 021510 

1435 021514 

1436 021520 
143/ 021524 

1438 021530 

1439 021534 

1440 021540 


004737 

000405 

000240 

104000 

004736 

000137 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 


046550 


021734 


000051 

001555 

000006 

000032 

000034 

000004 

000002 

000000 


;G0 VERIFY RESLUTS OF SEEK 


19$: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.SEKSTS 
19i 


PC.B(SP)* 

26i 


001412 


•READ DATA FROM DEVICE 

$ 0 $: 

MOV 
MOV 
MOVB 
N0V8 
MOVB 
MOVB 
MOVB 
MOVB 


RWCDJG0.RMCS10 
#PUTINX,R2 
fRMDA. (R2)+ 
#RM0F.(R2)* 
#RMDC,CR2>* 
*RMBA.(R2)+ 
RRMWC. (R2)* 
#RMCS 1 , (R2)+ 


:G0 TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 26$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 


.-READ DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 
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SEO 01 U 


1441 021 

1442 

1443 021550 
021554 
021556 
021560 
021562 

1444 021566 

1445 

1446 


000404 

000240 

104000 


000200 

M0V3 

#200. (R2> 

040360 

JSR 

BR 

PC .PUT 

21$ 


NOP 



EMT 


021734 

JMP 

26$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 


21 $: 


021566 004737 040024 


1447 

1448 

021572 

1449 

1450 

1451 021576 
021602 
021604 
021606 
021610 

1452 

1453 

1454 

1455 021614 

1456 021614 

1457 021622 

1458 

1459 

1460 021624 
021630 
021632 
021634 
021636 
021640 

1461 021644 

1462 021644 
021650 
021652 
021654 
021656 
021660 

1463 021664 


; SE T UP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


004737 040732 


004737 040110 
000404 
000240 
104000 

000137 021734 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR WRITE CHECK OPERATION 


JSR 

BR 

NOP 

EMT 

JMP 


PC.GET 

22 $ 


26$ 


GO READ REGISTtR(S) WITH GET SUBROUTINE 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 26$ IF ERROR 


004737 041760 


021670 

000405 

BR 

021672 

000240 

NOP 

021674 

104000 

EMT 

021676 

004736 

JSR 

021700 

000137 021734 

JMP 

1465 021704 

25$: 



1466 021704 

1467 021712 

1468 021714 

1469 021722 

1470 021730 

1471 021734 

1472 


.•CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
;D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 
22 $: 

;IS 'SSE' BIT SET ? 

;BR IF YES 

CHECK OPERATION 
; GO CHECK FOR PRIMARY ERRORS 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROTi CHECKS 
GO TO 26$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 25$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26$ IF ERROR 

TEST 16 BIT MODE U/ SSEI SET ? 

YES 1 1 

TRACK’= 1, SECTOR * 31. 

SET SSEI BIT IN OFFSET AND 
TEST AGAIN. 

26$: 


032737 

000040 001400 

BIT 

0SSE.RMER2I 

001030 


BNE 

25$ 



: CHECK FOR ERRORS DURING WR] 

004737 

041126 

JSR 

PC.PRIERR 

23$ 

000405 


BR 

000240 


NOP 


104000 


EMT 

pc.acsp)* 

26$ 

004736 


JSR 

000137 

021734 

JMP 


23$: 

PC .DTASTS 
24$ 

004737 

054166 

JSR 

000405 


BR 

000240 


NOP 


104000 


EMT 

pc.a (sp)+ 
26$ 

004736 


JSR 

000137 

021734 

JMP 


24$: 


JSR 


P^SECERR 


PC.i (SP)+ 
26$ 


032737 

001000 

001444 

BIT 

fSSEI.RMOFO 

001010 



BNE 

26$ „ 

012737 

001037 

001420 

MOV 

#TA2!31 . ,RMI 

052737 

001000 

001444 

BIS 

fSSEI.RMOFO 

000137 

020754 


JMP 

2$ 
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SEQ 0115 


•TEST 13 


READ, WRITE CHECK U/ MID-TRANSFER SEEK 


021734 



TST13: 

021734 

000004 


SCOPE 

021736 

000240 


NOP 

021740 

012706 

001100 

MOV 

021 744 

013700 

001276 

MOV 

021750 

013701 

001466 

MOV 

021754 

012737 

000013 001226 

MOV 


1474 

1475 

1476 

1477 

1478 

1479 021762 

1480 021762 

1481 021770 

1482 021776 

1483 022004 

1484 022004 

1485 022012 

1486 022020 

1487 022026 

1495 022034 

1496 

1497 

1498 022034 
022040 


#STACK,SP 

S8ASE.R0 

TSTQUE.R1 

#13,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI3US ADDRESS 

(R1 ) * DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


013737 

112737 

012737 

012737 

012737 

012737 

012737 


004737 

154130 


001334 

000036 

010000 

001057 

177000 

104254 

000070 


034032 


001420 

001420 

001444 

001446 

001414 

001416 

001412 


.-LOOP 

:LOAD 

H: 


#1 READ.WRI TE CHECK 

PARAMETERS AND GENERATE DATA BUFFER 


LSTRK.RMDAO 
#30. .RMDAO 
#FMT16,RM0F0 

#559. .RMDCO 
#-256.*2,RMWC0 
#8UF0NE,RMBA0 
#RD,RMCS10 


.•PREPARE DEVICE FOR READ OPERATION 


;SET LAST TRACK AND 
.-LAST SECTOR 
;16 BIT FORMAT 

.•CYLINDER * 559. 
.‘CHANGE WORD COUNT 
.•CHANGE BUS ADDRSS 
.•READ DATA COMMAND 


JSR 

.WORD 


PC.TSTPRP 

154130 


022042 

000404 

BR 

4$ 

;G0 TO 4$ IF NO ERROR 

022044 

000240 

NOP 


.•RETURN HERE IF ERROR 

022046 

104000 

EMT 


.•ERROR # DEFINED BY TSTPRP SUBROUTINE 

022050 

000137 022546 

JMP 

19$ 

;G0 TO 19$ IF ERROR 


1499 022054 

1500 

1501 

1502 022054 

1503 022054 

1507 022062 

1508 022066 

1509 022072 

1510 022076 

1511 022102 

1512 022106 

1513 022112 

1514 022116 

1515 

1516 022122 
022126 
022130 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER l SELECT DEVICE 
VERIFY CONTROLLEP. CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF ••SKI” OR •'PIP'* IS SET 
VERIFY RECALIBRATION 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 


000071 001412 
001555 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

04036C 


;READ DATA FROM THE DRIVE 

5 $: 

MOV #RD!G0,RMCS10 

MOV #PUTINX,R2 

MOVB #RMDA,(R2)+ 

MOVB #RMDC.(R2)* 

MOVB #RM0F,(R2)* 

MOVB #RMBA,(R2)+ 

MOVB #RMWC.(R2>* 

MOVB #RMCS1,(R2)+ 

MOVB #200.(R2)«- 

JSR PC. PUT 

BR 6$ 


.‘READ DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 


.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 


SEQ 0116 
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022132 

022134 

1517 022140 

1518 

1519 

022140 

1520 

1521 

022144 

1522 

1523 

1524 022150 
022154 
022156 
022160 
022162 

1525 

1526 

1527 

1528 022166 

1529 022166 

1530 022174 

1531 

1532 

1533 022176 
022202 
022204 
022206 
022210 
022212 

1534 022216 

1535 022216 
022222 
022224 
022226 
022230 
022232 

1536 022236 

1537 022236 
022242 
022244 
022246 
022250 
022252 

1538 022256 

1539 

1540 

1541 022256 

1542 022264 

1543 

1544 
ic/,c 

1546 

1547 022266 

1548 

1549 

1550 022266 


104000 

000137 022546 


004737 040024 


004737 040732 


004737 040110 
000404 
000240 
104000 

000137 022546 


032737 000040 001400 
001030 


; ERROR # DEFINED BY PUT SUBROUTINE 
; 50 TO 19$ IF FRROR 


; SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


.-WAIT FOR COMMAND TO COHPLETF 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


STATUS 

FOR READ 

COMMAND 

JSR 

PC. GET 

;G0 READ REGJSTER(S) WITH GET SUBROUTINE 

BR 

7$ 

;G0 TO 7$ JF NO ERROR 

NOP 


.•RETURN HERE IF ERROR 

EMT 


.•ERROR # DEFINED BY GET SUBROUTINE 

JMP 

19$ 

;G0 TO 19$ IF ERROR 


.•CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST. IF SO 
;D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 

n BIT #SSE. RMER2I ;IS ’SSE' BIT SET ? 

BNE 10$ ;BP IF YES 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


041126 


022546 

054166 


022546 

041760 


022546 


.•CHECK FOR ERRORS DURING READ 
JSR PC. PR I ERR 

BR 8$ 


PC.a(SP)* 

19i 

PC.DTASTS 

9$ 


pc.acsp)* 

I9i 

PC.SECERR 

ioi 


pc.acsp)* 

i9i 


012737 022266 001124 
000410 


.•CHANGE LOOP ADDRESSES 

MOV #11$,$LPERR 

BR 12$ 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 

; GO TO 8$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.’ERROR # DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 19$ IF ERROR 

;G0 VERIFY RESULTS OF DATA TRANSFER 

;G0 TO 9$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 19$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 10$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.•ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR PORE ERROR CHECKS 

;G0 TO 19$ IF ERROR 


.•SKIP TO NEXT OPERATION 


.-LOOP «2 


WRITE CHECK DATA 


004737 034032 


.•PREPARE DEVICE FOR WRITE CHECK OPERATION 

JSR PC.TSTPRP .-PREPARE DEVICE FOR TEST 


n y 
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SEQ 0117 


022272 154130 


.WORD 154130 



022274 

000404 



8R 

12$ 


022276 

000240 



NOP 



022300 

104000 



EMT 

19$ 


022302 

000137 

022546 


JMP 

1551 

022306 



12$: 



1552 







1553 




; WRITE 

CHECK 

DATA FROM DEVICE 

1554 

022306 



13$: 



1555 

022306 

012737 

000051 001412 


MOV 

#WCD!G0.RMCS10 

1556 

022314 

012702 

001555 


MOV 

APUTINX.R2 

1557 

022320 

112722 

000006 


MOVB 

#RMDA. (R2)+ 

1558 

022324 

112722 

000032 


MOVB 

#RM0F.(R2)+ 

1559 

022330 

112722 

000034 


MOVB 

#RMDC,(R2)+ 

1560 

022334 

112722 

000004 


MOVB 

#RMBA.(R2)+ 

1561 

022340 

112722 

000002 


MOVB 

#RMWC. (R2)+ 
#RMCS1.(R2H 

1562 

022344 

112722 

000000 


MOVB 

1563 

022350 

112712 

000200 


MOVB 

#200. (R2) 

1564 







1565 

022354 

004737 

040360 


JSR 

PC. PUT 

14i 


022360 

000404 



BR 


022362 

000240 



NOP 



022364 

104000 



EMT 



022366 

000137 

022546 


JMP 

19$ 

1566 

022372 



14$: 




TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIF* DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ,, SKr’ OR “PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 19$ IF ERROR 


;READ DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 10 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR 0 DEFINED BY PUT SUBROUTINE 

;G0 TO 19$ IF ERROR 


1567 


1568 




.’SETUP GET INDEX TABLE TO READ ALL REGISTERS 


022372 

004737 

040024 

JSR 

PC.GETSTS 

;G0 TO GETSTS SUBROUTINE 

1569 







1570 




.-WAIT FOR COMMAND TO COMPLETE 



022376 

004737 

040732 

JSR 

PC.TIMOUT 

;G0 TO TIMOUT SUBROUTINE 

1571 







1572 




;G0 READ STATUS 

FOR READ OPERATION 

1573 

022402 

004737 

040110 

JSR 

PC.GET 

;G0 READ REGISTER(S) WITH GET SUBROU T INE 


022406 

000404 


BR 

isi 

;G0 TO 15$ IF NO ERROR 


022410 

000240 


NOP 


.•RETURN HERE IF ERROR 


022412 

104000 


EMT 


.•ERROR 0 DEFINED BY GET SUBROUTINE 


022414 

000137 

022546 

JMP 

19$ 

;G0 TO 19$ IF ERROR 


1574 

1575 

1576 

1577 022420 

1578 022420 

1579 022426 

1580 

1581 

1582 022430 
022434 
022436 
022440 


032737 000040 
001030 


004737 041126 
000405 


.•CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST. IF SO 

;D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 

15 $: 

001400 BIT JSSE.RMER21 ;IS 'SSE' BIT SET ? 

BNE 18$ ;8R IF YES 

.•CHECK FOR ERRORS DURING READ OPERATION 


000240 

104000 


JSR 

BR 

NOP 

EMT 


PC.PRIERR 
16* 


GO CHECK FOR PRIMARY ERRORS 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 


L 
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SEQ 0118 

T13 READ. WRITE CHECK W/ MID-TRANSFER SEEK 




022442 

004736 




JSR 

PC t 3(SP)» 

GO PACK FOR MORE ERRO» CHECKS 


022444 

000137 

022546 



JFV> 

19i 

GO TO 19$ IF ERROR 


1583 022450 

1584 022450 

004737 

0^4166 


16$: 

JSR 

PC.DTASTS 

17i 

GO VERIF' RESULTS OF DATA TRANSFER 


022454 

000405 




BR 

GO TO 17$ IF NO ERROR 


022456 

000240 




NOP 


RETURN HERE IF ERROR 

I 

022460 

104000 




EN T 


ERROR 0 DEFINED BY DTASTS SUBROUTINE 

1 

022462 

004736 




JSR 

pc.ats ?>♦ 

GO BACK FOR MORE ERROR CHECKS 


022464 

000137 

022546 



JMP 

19§ 

GO TO 19$ IF ERROR 


1585 022470 

1586 022470 

004737 

041760 


17$: 

JSR 

PC.SECERR 

i8i 

GO CHECK FOR SECONDARY ERRORS 


022474 

000405 




BR 

GO TO 18$ IF NO ERROR 


022476 

000240 




NOP 


RETURN HERE IF ERROR 


022500 

104000 




EMT 


ERROR » DEFINED BY SECERR SUBROUTINE 


022502 

004736 




JSR 

PC.a(SP)* 

19 i 

GC BACK FOR MORE ERROR CHECKS 


022504 

000137 

022546 



JMP 

GO TO 19$ IF ERROR 


1587 022510 

1588 022510 

032737 

001000 

001444 

18$: 

BIT 

#SSEI ,RMGFO 

TEST 16 BIT MODE W/ SSEI SET ? 


1589 022516 

001013 




BNE 

19$ 

YES ! ! 


1590 022520 

013737 

001334 

001420 


MO’/ 

LSTRK.RMDAO 

SET LAST TRACK AND 


1591 022526 

112737 

000037 

001420 


movb 

J31..RMDA0 

LAST SECTOR 


1592 022534 

052737 

001000 

001444 


BIS 

fSSEI.RMOFO 

SET SSEI BIT IN RMOF AND 


1593 022542 

1594 022546 

1595 

000137 

022004 


19$: 

JMP 

2$ 

TEST AGAIN. 


1596 




;;♦**» 









;*TEST 

14 

WRITE, READ W/ HCE ERROR 


022546 

022546 

000004 



; ; «*•« 

IS T14: 

SCOPE 


SCOPE CALL 


022550 

000240 




NOP 


START OF TEST 


022552 

012706 

001100 



MOV 

RSTACK.SP 

INITIALIZE STACK POINTER 


022556 

013700 

001276 



MOV 

IBASE.RO 

RO = UNIBUS ADDRESS 


022562 

013701 

001466 



NOV 

TST0UE,R1 

(R1> = DEVICE BEING TESTED 


022566 

012737 

000014 

001226 


NOV 

#14,$TESTN 

.-SET TEST NUMBER IN APT MAIL BOX 


1597 









1598 




;;**** 





1599 




;LOOP #1 

F ORMAT. WRITE, RE Al 

) 


1600 








1601 072574 

012704 

000000 



MOV 

#0,R4 

;R4 = 1ST HEADER WORD 


1602 J22600 

012703 

000001 


1$: 

NOV 

#1 ,R3 

;R3 = HCE BIT 


1603 022604 

1604 




2$: 





1605 




; PREPARE THE DEVICE FOR FORMAT OPERATION 


1606 022604 

004737 

034032 



JSR 

PC, TSTPRP 

PREPARE DEVICE FOR TEST 


022610 

154130 




.WORD 

154130 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP” IS SET 

VERIFY RE CALIBRATION 


022612 

000404 




BR 

3$ 

GO TO 3$ IF NO ERROR 


022614 

000240 




NOP 


Re TURN HERE IF ERROR 


022616 

104000 




EMT 


ERROR 0 DEFINED BY TSTPRP SUBROUTINE 


022620 

000137 

024416 



JMP 

47$ 

GO TO 47$ IF ERROR 




SEO 0119 
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1607 

1608 

1609 022624 

1610 022624 

1611 022632 

1612 022640 

1613 022646 

1614 022654 

1615 022662 

1616 

1617 

022670 

022674 

022676 

022702 

022704 

1618 022710 

1619 022710 

1620 022716 

1621 C22724 

1622 

1623 

1624 022730 

1625 022734 

1626 022736 

1627 022742 

1628 022744 

1629 

1630 

1631 022750 

1632 022750 

1633 022754 

1634 022760 

1635 022764 

1636 022770 

1637 022774 

1638 023000 

1639 023004 

1640 023010 

1641 023010 
023014 
023016 
023020 
023022 

1642 023026 

1643 

1644 

023026 

1645 

1646 

023032 

1647 

1648 

1649 023036 
023042 
023044 
023046 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


030364 

001403 

040364 

0004C2 

050364 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

H2712 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


004737 

000404 

000240 

104000 


'LOAD PARAMETERS AND GENERATE DATA BUFFER 


001057 

001000 

104254 

177376 

010000 

000063 


034762 

066006 

024416 

067456 

000001 

037214 

104254 

104254 

104254 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 

040360 


024416 

040024 

040732 

040110 


001446 


MOV 

#559..R.mO 

CYLINDER = 559. 

001420 


MOV 

#TA2,RMDA0 

TRACK = 2. SECTOR = 0 

001416 


MOV 

#8UF0NE,RMBA0 

BUS ADDRESS 

001414 


MOV 

#-258. .RMWCO 

2 ♦ 256. WORDS (2*S COW>> 

001444 


MOV 

#FMT16,RM0F0 

16 BIT FORMAT 

001412 


MOV 

fWH'GO.RMCSIO 

WRITE HEADER AND DATA COMMAND 


.•VERIFY 

THAT SECTOR IS NOT BAD 




JSR 

PC.BADSCT 

CALL BAD SECTOR MODULE 



BR 

4$ 

GO TO 4$ IF NO ERROR 



TYPE 

.SCTMSG 

TYPE BAD SECTOR MESSAGE 



EMT 


ERROR # DEFINED BY BADSCT SUBROUTINE 



JMP 

46$ 

GO CO 46$ IF ERROR 


4$: 




001174 


MOV 

#2EROS.$TMPO 

STARTING ADDRESS OF PATTERN 

001176 


MOV 

#1 ,$TMP1 

RANGE OF PATTERN 



JSR 

PC.GENBUF 

GO GENERATE BUFFER FOR FORMAT 


.•CHANGE 

HEADER 

WORD TO FORCE HCE 

DURING WRITE t READ 



BIT 

R3,8UF0NE(R4) 

SET OR RESET FOR HCE?? 



BEQ 

5$ 




BIC 

R3.BUF0NECR4) 

RESET BI1 FOR HCE 



BR 

6$ 



5$: 

BIS 

R3.BUF0NECR4) 

SET FOR HCE 


.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
6 $: 

;R2 = BYTE ENTRY POSITION 


7$: 


8 $: 


MOV 

#PUTINX,R2 

MOVB 

#RMDC.(R2)+ 

H0V8 

#RMDA.(R2)+ 

Move 

#RMBA.(R2> + 

movb 

#RMWC.(R2>* 

Move 

#R M0F.CR2)* 

movb 

#RMCS1,<R2>* 

MOVB 

#200, (R2) 

JSR 

PC. PUT 

BR 

8$ 

NOP 


EMT 


JMP 

46$ 

GET INDEX TABLE TO RE 

JSR 

PC.6ETSTS 


.•TERMINATE TABLE 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 8S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 46$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


; GO READ STATUS FOR FORMAT OPERATION 


JSR 
BR 
NO P 
EMT 


PC. GET 
9$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 


SEQ 0120 


ru 
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46$ 


* 

WRITE. 

READ W/ 

HCE ERROR 



023050 

000137 

024416 

JMP 

1650 

023054 



9$: 

1651 





1652 




.•VERIFY NO 1 

1653 

023054 

004737 

054166 

JSR 


023060 

000405 


BR 


023062 

000240 


NOP 


023064 

104000 


EMT 


023066 

004736 


JSR 


023070 

000137 

024416 

jMP 

1654 

023074 



10$: 

1655 





1656 




.-MOVE LOOP t 

1657 

023074 

012737 

023104 001124 

MOV 

1658 

023102 

000410 


BR 


PC.DTASTS 

ioi 


pc t a(SP)+ 

46§ 


#11$,$LPERR 

12 $ 


;G0 TO 46$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 46$ IF ERROR 


SKIP TO WRITE OPERATION 


1659 

1660 
1661 
1662 

1663 0231 C4 

1664 

1665 

1666 023104 
023110 


.-LOOP #2 
11 $: 


WRITE .READ 


004737 034032 
154130 


; PREPARE DEVICE FOR WRITE OPERATION 


JSR 
.WORD 


PC.TSTPRP 
154130 


023112 

023114 

023116 

023120 

1667 023124 

1668 

1669 

1670 023124 

1671 023124 

1672 023132 

1673 023140 

1674 023146 

1675 023152 

1676 023156 

1677 023162 

1678 023166 

1679 023172 

1680 023176 

1681 023202 

1682 

1683 023206 
023212 
023214 
023216 
023220 

1684 023224 


000404 

000240 

104000 

000137 


024416 


12 $: 


BR 

NOP 

EMT 

JMP 


12 $ 


46$ 


: WRITE DATA TO THE DRIVE 


012737 

104260 

001416 

MOV 

#8yfON£+4,RN& 

#-256..RNWCO 

012737 

177400 

001414 

NOV 

012737 

000061 

001412 

NOV 

fWD'GO.RHCSIO 

012702 

001555 


NOV 

#PUTINX.R2 

*RMDA,(R?)+ 

112722 

000006 


N0V8 

112722 

000034 


N0V8 

#RMDC,<R2>* 

112722 

000032 


N0V8 

fRMOF. (R2)+ 

112722 

000004 


N0V8 

#RMBA. (Rl>* 

112722 

000002 


N0V8 

#RMWC,(R2>* 

*RMCS1.(R2)+ 

112722 

000000 


N0V8 

112722 

000200 


MOVB 

#200, (R2>* 

004737 

000404 

000240 

104000 

040360 


JSR 

BR 

NOP 

ENT 

PC .PUT 

14i 

000137 

024416 

14$: 

JMP 

46$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER C SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '‘SKI" OR "PIP’* IS SET 

VERIFY RECALIBRATION 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY TSTPRP SUBROUTINE 

GO TO 46$ IF ERROR 


.•CHANGE WORD COUNT 

.'WRITE DATA COMMAND 

;LOAD PUT REGISTER INDEX TABLE 


.•TERMINATE TABLE 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 14$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.'ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 46$ IF ERROR 
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SEO 0121 


1685 



1686 

023224 

004737 

1687 



1688 

023230 

00*737 

1689 



1690 



1691 

023234 

004737 


023240 

000404 


023242 

000240 


023244 

104000 


023246 

000137 

1692 

023252 


1693 



1694 



1695 

023252 

004737 


023256 

000405 


023260 

000240 


023262 

104000 


023264 

004736 


023266 

000137 

16% 



1697 



1698 

023272 


1699 

023272 

005704 

1700 

023274 

001011 

1701 



1702 

023276 

032703 

1703 

023302 

001042 

1704 

023304 

032703 

1705 

023310 

001067 

1706 

023312 

032703 

1707 

023316 

001111 

1708 



1709 



1710 

023320 


1711 

023320 

f 32737 

1712 

023326 

M 1 *2 

1713 



1714 

023330 

004 ? >7 


02 J? 34 

OCC't )S 


ci; ;5V> 

r 

*** 

O 


023340 

104000 


023342 

004736 


023344 

000137 

1715 

023350 


1716 

023350 

013737 

1717 

023356 

012737 

1718 

023364 

010437 

1719 

023370 

001002 

1720 

023372 

005237 

1721 

023376 

010337 

1722 

023402 

104344 

1723 

023404 

000137 

1724 



1725 





;SEiUP 

GET JNDE) 

TABLE TO READ 

ALL REGISTERS 

040024 


JSR 

PC.GETS1S 

;G0 TO GETSTS SUBROUTINE 


.-WAIT 

FOR COMMAND TO COMPLETE 


040732 


JSR 

PC.TIMOUT 

;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS 

FOR WRITE COMMAND 

040110 


JSR 

PC. GET 

;G0 READ REGiSTER(S) WITH GET SUBROUTINE 



BR 

I5i 

;G0 TO 15$ IF NO ERROR 



NOP 


.•RETURN HERE IF ERROR 



EMT 


.•ERROR # DEFINED BY GET SUBROUTINE 

024416 


JMP 

46$ 

;G0 TO 46$ IF ERROR 


15$: 





.•CHECK 

FOR ERRORS DURING WRITE 

OPERATION 

041126 


JSR 

PC.PRIERR 

;G0 CHECK FOR PRIMARY ERRORS 



BR 

16$ 

;G0 TO 16$ IF NO ERROR 



NOP 


.•RETURN HERE IF ERROR 



EMT 


;ERRO^ # DEFINED BY PRIERR SUBROUTINE 



JSR 

pc.acsp)* 

;G0 BACK FOR MORE ERROR CHECKS 

024416 


JMP 

46$ 

;G0 TO 46$ IF ERROR 


.DECODE THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3 


16$: 






TST 

R4 

;IS THIS THE FIRST HEADER WORD ? 



BNE 

17$ 

;N0 ! ! 

020000 


BIT 

ASSF.R3 

.•SHOULD SSE BE SET ? 



BNE 

20$ 

; YES !.' 

010000 


BIT 

#FNT16.R3 

.•SHOULD FER BE SET ? 



BNE 

22$ 

;YES J! 

140000 


BIT 

#MSE!USE.R3 

.•SHOULD BSE BE SET ? 



BNE 

24$ 

; YES ! ! 




:VERIFY 

THAT 

A HEADER COMPARE 

ERROR WAS DETECTED 







000200 

001352 


BIT 

fHCE.RMERU 

;WAS HCE DETECTED ?? 




BNE 

26$ 

; YES 

054166 



JSR 

PC.DTASTS 

;G0 VERIFY RESULTS OF DATA TRANSFER 




BR 

18i 

;G0 TO 18$ IF NO ERROR 




NOP 


.•RETURN HERE IF ERROR 




EMT 


.•ERROR # DEFINED BY DTASTS SUBROUTINE 




JSR 

PC.i(SP)* 

;G0 BACK FOR MORE ERROR CHECKS 

024416 



JMP 

46* 

;G0 TO 46$ IF ERROR 



18$: 




001352 

001142 


MOV 

RMER1I ,$8DDAT 

.•RECEIVED STATUS 

000200 

001140 


MOV 

#HCE.$GDDAT 

.•EXPECTED STATUS 

001174 



MOV 

R4.$TMP0 

;R4 - HEADER WORD NUMBER AND 




BNE 

19* 

.•ADJUST NUMBER. 

001174 



INC 

STMPO 


001176 


19$: 

NOV 

R3.STMP1 

;R3 = BIT POSII TON 




EMT 

344 


024416 



JMP 

46$ 



; VERIFY THAT SSE IS SET 


SEQ 012? 
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1726 023410 

1727 023410 

1728 023416 

1729 

1730 023420 
023424 
023426 
023430 
023432 
023434 

1731 023440 

1732 023440 

1733 023446 

1734 023454 

1735 023462 

1736 023464 

1737 

1738 

1739 023470 

1740 023470 

1741 023476 

1742 

1743 023500 
023504 
023506 
023510 
023512 
023514 

1744 023520 

1745 023520 

1746 023526 

1747 023534 

1748 023536 


1751 023542 

1752 023542 

1753 023550 

1754 

1755 023552 
023556 
023560 
023562 
023564 
023566 

1756 023572 

1757 023572 

1758 023600 

1759 023606 

1760 023610 

1761 

1762 

1763 023614 

1764 023614 
023620 
023622 
023624 


032737 

001076 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

015737 

052737 

104224 

000137 


032737 

001046 

004737 

000405 

000240 

104000 

004736 

000137 

012737 

013737 

104343 

000137 


032737 

001021 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

012737 

104345 

000137 


004737 

000405 

000240 

104000 


000040 001400 


054166 


024416 

001400 001142 
001400 001140 
000040 001140 

024416 


000020 001352 


054166 


024416 

000020 001140 
001352 001142 

024416 


100000 001400 


054166 


024416 

001400 001142 
100000 001140 

024416 


041760 


#SSE,RMER2I 

26$ 

PC.DTASTS 

2ii 


pc.acsp)* 

46i 

RMER2I,$BDDAT 

RMER2I.SGDDAT 

#SSE.$GDDAT 

224 

46$ 


IS SSE SET ? 

YES ! ! 

GO VERIFY RESULTS Of DATA TRANSFER 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR WORE ERROR CHECKS 

GO TO 46$ IF ERROR 

GET RECIEVED STATUS 
GET EXPECTED STATUS AND 
SET SSE. 


; VERIFY THAT A FORMAT ERROR WAS DETECTED 
$ 2 $: 

BIT RFER.RMER1I ;WAS FER 

8NE 26$ ;YES !! 


PC.DTASTS 

23i 


pc.a<sp>* 

46$ 

#FER.$GDDAT 

RM£R1I,$8DDAT 


WAS FER DETECTED ?? 
YES ! ! 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 46$ IF ERROR 

EXPECTED STATUS 
RECEIVED STATUS 


; VERIFY THAT A BAD SECTOR ERROR WAS DETECTED 

54 $: 


#8SE-RMER2I 

26$ 

PC.DTASTS 

25* 


jsr pc.acsp)* 

JMP 46$ 

25$: 

MOV RMER2I.$BDDAT 

MOV «8SE.$GDDAT 

EMT 345 

JMP 46$ 

:CHECK FOR OTHER ERRORS 

56 $: 

JSR PC.SECERR 

BR 27* 

NOP 

EMT 


WAS BSE DETECTED ?? 

YES ! ! 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 46$ IF ERROR 

RECEIVED STATUS 
EXPECTED STAIUS 


GO CHECK FOR SECONDARY ERRORS 

GO TO 27$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERFl SUBROUTINE 
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1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 


023626 004736 
023630 000137 024416 
023634 


023634 01273/ 023642 001124 


023642 


023642 004737 034032 
023646 154130 


27$: 


JSR 

JMP 


pc.acsp)* 

46i 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 46$ IF ERROR 


; CHANGE LOOP ADDRESSES 

MOV #28$.$LPERR 


.-LOOP #3 
28$: 


READ 


.•PREPARE DEVICE FOR READ OPERATION 


JSR 
.WORD 


PC.TSTPRP 
154130 



023650 

000404 




BR 

29$ 


023652 

000240 




NOP 



023654 

104000 




EMT 



023656 

000137 

024416 



JMP 

46$ 

1777 

023662 




29$: 



1778 








1779 





;READ 

DATA FROM DEVICE 

1780 

023662 




$0$: 



1781 

023662 

012737 

105264 

001416 


NOV 

#8UFTW0+4,RMBA0 

1782 

023o70 

012737 

1 77400 

001414 


NOV 

#-256. .RMWCO 

1783 

023676 

012737 

000071 

001412 


NOV 

#RD!60.RNCS10 

1784 

023704 

012702 

001555 



MOV 

#PUTINX,R2 

#RMDA,(R2)+ 

1785 

023710 

112722 

000006 



M0V8 

1786 

023714 

112722 

000032 



N0V8 

#RN0f.(R2>* 

1787 

023720 

112722 

000034 



MOVB 

#RMDC,(R2>* 

1788 

023724 

112722 

000004 



M0V8 

fRMBA, (R2)+ 

1789 

023730 

112722 

000002 



MOVB 

#RMWC.(R2)+ 
#RMCS1 , (R2) ♦ 
#200. (R2) 

179^ 

023734 

112722 

000000 



MOVB 

1791 

023740 

112712 

000200 



MOVB 

1792 








1793 

023/44 

004737 

040360 



JSR 

PC, PUT 


023/50 

00C404 




BR 

31$ 


023752 

000240 




NOP 



023754 

104000 




EMT 



023/56 

000137 

024416 



JMP 

46$ 

1794 

023762 




31$: 



1795 








1796 





.SETUP GET INDEX TABLE TO READ • 


023762 

004737 

040024 



JSR 

PC. GETSTS 

1797 








1798 





.-WAIT 

FOR COMMAND TO COMPLETE 


023766 

004737 

040732 



JSR 

PC, TIMOUT 

1799 








1800 





;G0 READ STATUS 

FOR READ OPERAT 

1801 

023772 

004737 

040110 



JSR 

PC. GET 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ■‘SKI'' OR , T>IP” IS SEf 

VERIFY RECALIBRATION 

GO TO 29$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 46$ IF ERROR 


.■CHANGE WORD COUNT 
;READ DATA COMMAND 
.-LOAD PUT REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 31$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SIBROUTINE 

GO TO 46$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 


SEQ 



SEQ 01 A 


GO TO 32$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY GET SUBROUTINE 

GO TO 46$ IF ERROR 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 33$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.-ERROR f DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 46$ IF ERROR 

;IS THIS THE FIRST HEADER WORD ? 

;N0 ! ! 

.-SHOULD SSE BE SET ? 

•'YES 1 ' 

•SHOULD FER BE SET ? 

•YES ' 1 

•SHOULD BSE BE SET ? 

;YES 

ERROR WAS DETECTED 

;WAS HCE DETECTED ?? 

;VES ! f 

;G0 VERIFY RESULTS OF DATA TRANSFER 

;G0 TO 35$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 46$ IF ERROR 

.•RECEIVED STATUS 
.•EXPECTED STATUS 
;R4 = HEADER WORD NUMBER AND 
.•ADJUST NUMBER. 

;R3 = BIT POSITION 


;1S SSE SET ? 

;YES ! ! 

;G0 VERIFY RESULTS OF DATA TRANSFER 

;G0 TO 38$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR « DEFINED BY DTASTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

.GO TO 46$ IF ERROR 


i 


SEO 0125 


HM AO 

RM80 K 

INI PI 3 

MACRO V04.00 28- 

•JAN-82 16:49: 

32 

PAGE 13 '5, 


<♦ 

WRITE. 

READ W/ 

HCE ERROR 






1840 

024176 

013737 

001400 

001142 


MOV 


RMER2I .$6DDA> 

.'GET RECIEVED STATUS 

1841 

024204 

013737 

001400 

001140 


MOV 


RMER2I .SGDDAT 

;GET EXPECTED STATUS AND 

1842 

024212 

052737 

000040 

001140 


BIS 


»SSE.$GDDAT 

.SET SSE. 

1843 

024220 

104224 




EMT 


22 4 


1844 

024222 

000137 

024416 



JMP 


46$ 


1845 










1846 





: VERIFY 

THAT 

A 

FORMAT ERROR WAS 

DETECTED 

1847 

024226 




59$: 





1848 

024226 

032737 

000020 

001352 


BIT 


fFER.RMERI I 

;UAS FER DETECTED ?? 

1849 

024234 

001046 




BNE 


43$ 

;YES ! ! 

1850 










1851 

024236 

004737 

054166 



JSR 


PC.DTASTS 

;G0 VERIFY RESULTS OF DATA TRANSFER 


024242 

000405 




BR 


40$ 

;G0 TO 40$ IF NO ERROR 


024244 

000240 




NOP 



.'RETURN HERE IF ERROR 


024246 

104000 




EMT 



; ERROR » DEFINED BY DTASTS SUBROUTINE 


024250 

004736 




JSR 


PC.a<SP>+ 

;G0 BACK FOR MORE ERROR CHECKS 


024252 

000137 

024416 



JMP 


46i 

;G0 TO 46$ IF ERROR 

1852 

024256 




40$: 





1853 

024256 

012737 

000020 

001140 


MOV 


AFER, SGDDAT 

.'EXPECTED STATUS 

1854 

024264 

013737 

001352 

001142 


MOV 


RMER1 I .SBDDAT 

.'RECEIVED STATUS 

1855 

024272 

104343 




EMT 


343 


1856 

024274 

000137 

024416 



JMP 


46$ 


1857 










1858 





.'VERIFY 

THAT 

A 

BAD SECTOR ERROR WAS DETECTED 

1859 

024300 




41$: 





1860 

024300 

032737 

100000 

001400 


BIT 


A8SE.RMER2I 

.WAS BSE DETECTED ?? 

1861 

024306 

001021 




BNE 


43$ 

;YES !! 

1862 










1863 

024310 

004737 

054166 



JSR 


PC.DTASTS 

;G0 VERIFY RESULTS OF DATA TRANSFER 


024314 

000405 




BR 


4 2i 

;G0 TO 42$ IF NO ERROR 


024316 

000240 




NOP 



.'RETURN HERE IF ERROR 


024320 

104000 




EMT 



.•ERROR # DEFINED BY DTASTS SUBROUTINE 


024322 

004736 




JSR 


PC.i(SP)* 

;G0 BACK FOR MORE ERROR CHECKS 


024324 

000137 

024416 



JMP 


46i 

;G0 TO 46$ IF ERROR 

1864 

024330 




42$: 





1865 

024330 

013737 

001400 

001142 


MOV 


RMER2I. SBDDAT 

.'RECEIVED STATUS 

1866 

024336 

012737 

100000 

001140 


MOV 


#8SE. SGDDAT 

.'EXPECTED STAIUS 

1867 

024344 

104345 




EMT 


345 


1868 

024346 

000137 

000350 



JMP 


350 



1869 
',870 
1871 024352 


;CHECK FOR OTHER ERRORS 
43$: 


1872 024352 

004737 

041760 

JSR 

PC.SECERR 

024356 

000405 


BR 

44$ 

024360 

000240 


NOP 


024362 

104000 


EMT 


024364 

004736 


JSR 

PC.a<SP>* 

024366 

000137 

024416 

JMP 

46$ 

1873 024372 



44$: 


1874 024372 

006303 


ASL 

R3 

1875 024374 

001006 


BNE 

45$ 

1876 





1877 024376 

005704 


TST 

R4 

1873 024400 

001006 


BNE 

46$ 

1879 024402 

012704 

000002 

NOV 

#2.R4 

1880 024406 

012703 

000001 

MOV 

# 1.R3 


1881 024412 


45$: 


;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 44$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.•ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 46$ IF ERROR 

.'SHIFT TO NEXT BIT 
.'REPEAT IF NOT DONE 

.'SECOND HEADER WORD DONE?? 

'YES* • 

'SETUP FOR 2ND HEADER WORD 
.'SETUP FOR HCE 



TK 


1884 

1885 

1886 
1887 


WRITE. 

READ W/ 

HCE ERROR 





024412 

024416 

000137 

022604 

46$: 

JMP 

2$ 


024416 



47$: 







; ; **** 
.-•TEST 

15 

WRITE. READ W/ 

HCI t SSEI 

024416 

024416 

000004 


0 9 : 

TST15: 

SCOPE 


.-SCOPE CALL 

024420 

000240 



NOP 


.-START OF TEST 

024422 

012706 

001100 


NOV 

fSTACK.SP 

.-INITIALIZE STACK POINTER 

024426 

013700 

001276 


NOV 

S8ASE.R0 

TSTQUE.R1 

#15,STESTN 

;R0 = UNIBUS ADDRESS 

024432 

013701 

001466 


MOV 

;(R1) = DEVICE BEING TESTED 

024436 

012737 

000015 001226 


MOV 

.-.-SET TEST NUMBER IN APT MAIL BOX 




; ; **** 
.-LOOP 

#1 

FORMAT. WRITE. READ 

024444 

012704 

OOOC^O 

1$: 

NOV 

#0,R4 

.-HEADER WORD 

024450 

024454 

012703 

000001 

2$: 

NOV 

#1 ,R3 

;HCE BIT 


1888 

1889 

1890 

1891 


1895 

1896 

1897 024454 
024460 


004737 

154130 


034032 


.-PREPARE THE DEVICE FOR FORMAT OPERATION 


JSR 
WORD 


PC.TSTPRP 
15*130 


024462 

000404 



BR 

3$ 

024464 

000240 



NOP 


024466 

104000 



EMT 


024470 

000137 

025720 


JMP 

38$ 

1898 






1899 




.-LOAD PARAMETERS AND GENERATE 1 

1900 024474 




3$: 


1901 024474 

012737 

001057 

001446 

MOV 

#559. .RMDCO 

1902 024502 

012737 

001000 

001420 

MOV 

#TA2.RMDA0 

1903 024510 

012737 

104254 

001416 

NOV 

#8UFONE.RMBAO 

1904 024516 

012737 

177376 

001414 

NOV 

#-258. .RNWCO 

1905 024524 

012737 

010000 

001444 

MOV 

#FMT16,RN0F0 

1906 024532 

012737 

000063 

001412 

NOV 

#WH.'G0.RMCS10 

1907 






1908 




.VERIFY THAT 

SECTOR IS NOT BAD 

024540 

004737 

034762 


JSR 

PC .BADSCT 

024544 

000405 



BR 

4$ 

024546 

104401 

066006 


TYPE 

.SCTMSG 

024552 

104000 



EMT 


024554 

000137 

025720 


JMP 

37$ 

1909 024560 




4$: 


1910 024560 

012737 

067414 

001174 

MOV 

#ONES.STMPO 

1911 024566 

012737 

000001 

001176 

NOV 

#1 ,$TNP1 

1912 024574 

004737 

037214 


JSR 

PC.GENBUF 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS. 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •■SKI" OR ’PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 3S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 38S IF ERROR 


CYLINDER = 559. 

TRACK = 2, SECTOR = 0 
BUS ADDRESS 

2 ♦ 256. WORDS (2* COMP) 

16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 


CALL BAD SECTOR MODULE 

GO TO 4S IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 37$ IF ERROR 

STARTING ADDRESS OF PATTERN 
RANGE OF PATTERN 
GO GENERATE BUFFER FOR FORMAT 


SEO 
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SEQ 0127 


’ /K 

1915 024600 

1916 024604 

1917 024606 

1918 024612 

1919 024614 

1920 

1921 

1922 024620 

1923 024620 

1924 024624 

1925 024630 

1926 024634 

1927 024640 

1928 024644 

1929 024650 

1930 024654 

1931 024660 

1932 

1933 

1934 024660 
024664 
024666 
024670 
024672 

1935 024676 

1936 

1937 

024676 

1938 

1939 

024702 

1940 

1941 

1942 024706 
024712 
024714 
024716 
024720 

1943 024724 

1944 

1945 

1946 024724 
024730 
024732 
024734 
024736 
024740 

1947 024744 

1948 

1949 

1950 024744 

1951 024752 
195 
195 
1954 


030364 

001403 

040364 

000402 

050364 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 


004737 

000404 

000240 

104000 

000137 


004737 

004737 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 


012737 

000410 


104254 

1 04254 

104254 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


040360 

025720 

040024 

040732 

040110 

025720 

054166 

025720 

024754 001124 


; CHANGE HEADER WORD TO FORCE ERROR DURING WRITE 


Bi! R3,BUF0NE(R4) 

BE 9 5$ 

Si C R3.BUF0NECR4) 

BR 6$ 

BIS R3.BUF0NECR4) 


SET OR RESET BIT?? 
RESET BIT 
SET BIT 


7$: 


NOV 

M0V8 

N0V8 

N0V8 

NOVB 

NOVB 

NOVB 

NOVB 


;R2 = BYTE ENTRY POSITION 


.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
6 $: 

#PUTINX,R2 
#RMDC,(R2H 
#RMDA,(R2>* 

#RMBA,(R2>* 

#RMWC,(R 2 )* 

#RMOF. <R2;+ 

#RMCS1 , (R2H 
#200, (R2) 


;fOR8'T THE DRIVE 


8 $: 


JSR 

BR 

NOP 

ENT 

JMP 


PC. PUT 

8 $ 


37$ 


.•TERMINATE TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 37$ IF ERROR 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC.T1N0UT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR FORMAT OPERATION 


9$: 


JSR 

BR 

NOP 

ENT 

JMP 


PC, GET 
9$ 


37$ 


; VERIFY NO ERRORS DURING FORMAT 


10 $: 


JSR 

BR 

NOP 

ENT 

JSR 

JMP 


PC.DTASTS 

ioi 


PC.aCSP)+ 

37i 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 37$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 


.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
NOV #11$,$LPERR 

BR 12$ .-SKIP TO WRITE OPERATION 


•LOOP #2 


WRITE, READ 
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1955 

1956 024754 

1957 

1958 

1959 024754 
024760 


004737 

154130 


034032 


11 *: 

.•PREPARE DEVICE 
JSR 
.WOFD 


FOR WRITE OPERATION 


PC.TSTPRP 
154130 


024762 

024764 

024766 

024770 

1960 024774 

1961 

1962 

1963 024774 


000404 

000240 

104000 

000137 025720 


12 *: 


BR 

NOP 

EMT 

JMP 


1 2 * 


37* 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI" OR 'IMP" IS SET 

VERIFY RECALIBRATION 

GO TO 12* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 37* IF ERROR 


.-WRITE DATA TO THE DRIVE 
13*: 


1964 

024774 

012737 

013000 

001444 

MOV 

1965 






1966 

025002 

012737 

000061 

001412 

MOV 

1967 

025010 

012737 

104260 

001416 

MOV 

1968 

025016 

012702 

001555 


MOV 

1969 

025022 

112722 

000006 


MOVB 

1970 

025026 

112722 

000034 


MOVB 

1971 

025032 

112722 

000032 


MOVB 

1972 

025036 

112722 

000004 


MOVB 

1973 

025042 

112722 

000002 


MOVB 

1974 

025046 

112722 

000000 


MOVB 

1975 

025052 

112722 

000200 


MOVB 

1976 






1977 

025056 

004737 

040360 


JSR 


025062 

000404 



BR 


025064 

000240 



NOP 


025066 

104000 



EMT 


025070 

000137 

025720 


JMP 

1978 

025074 



14*: 



#FMT16!HCI!SSEI.RM0F0 

fWDJGO.RMCSIO 
#8UF0NE+4.RMBA0 
#PUTINX.R2 
#RMDA. (R2)* 

#RMDC, (R2)+ 

#RNOF , (R2)* 
#RMBA.(R2)+ 
#RMWC.(R2)* 
#RMCSl,(R2>+ 

# 200 . (k2) * 


INHIBIT HEADER COMPARE AND SKIP 
SKIP SECTOR ERRORS 
WRITE DATA COMMAND 
LOAD STARTING BUFFER ADDRESS 
LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


PC, PUT 
14i 


37* 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO U* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 37* IF ERROR 


1979 

1980 

1981 

1982 

1983 


025074 


025100 


004737 

004737 


040024 


040732 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


1984 




;G0 READ STATUS 

FOR WRITE COMMAND 

1985 

025104 

004737 

040110 

JSR 

PC. GET 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 


025110 

000404 


BR 

I5i 

;G0 TO 15* IF NO ERROR 


025112 

000240 


NOP 


.•RETURN HERE IF ERROR 


025114 

104000 


EMT 


.•ERROR # DEFINED BY GET SUBROUTINE 


025116 

000137 

025720 

JMP 

37* 

;G0 TO 37* IF ERROR 

1986 

025122 



15*: 



1987 







1988 




.•CHECK FOR ERRORS DURING WRITE 

OPERATION 

1989 

025122 

004737 

041126 

JSR 

PC.PRIERR 

;G0 CHECK FOR PRIMARY ERRORS 


SEQ 
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025126 

000405 




BR 

16$ 

GO TO 

16$ IF NO ERROR 


025130 

000240 




NOP 


RETURN HERE IF ERROR 


025132 

104000 

0047% 




EMT 


ERROR 

0 DEFINED BY PRIERR SU8R0UTIN 


025134 




JSR 

PC.a(SP)* 

37$ 

-GO BACK FOR MORE ERROR CHECKS 


025136 

000137 

025720 



JMP 

GO TO 

37$ IF CRROR 

1990 

025142 

005037 

001140 


16$: 

CLR 

$GDDAT 


.’EXPECTED STATUS 

1991 










1992 

025146 

032737 

000220 

001352 


BIT 

#HCE!FER,RMER1I 


.-ANY ERROR?? 

1993 

025154 

001407 




BEO 

17$ 



1994 

025156 

013737 

001352 

001 142 


MOV 

RMER1 1 .JBDDAT 


.’RECEIVED STATUS 

1995 

025164 

042737 

177557 

001142 


BIC 

#*C<HCE!FER>, JBDDAT 

.’CLEAR DONT CARES 

1996 

025172 

000412 




BR 

18$ 



1997 

025174 




17$: 





1998 

025174 

013737 

001400 

001142 


MOV 

RMER2I .JBDDAT 


.’RECEIVED STATUS 

1999 

025202 

032737 

100000 

001400 


BIT 

#BSE.RMER21 


.’ANY BAD SECTOR ERROR ? 

2000 

025210 

001406 




BEO 

19$ 


;N0 ! ! 

2001 

025212 

042737 

077777 

001142 


BIC 

4TCBSE, JBDDAT 


.’SAVE BSE FOR ERROR 

2002 

025220 




18$: 


346 



2003 

025220 

104346 




EMT 



2004 

025222 

000137 

025720 



JMP 

37$ 



2005 

025226 




19$: 





2006 

025226 

032737 

000040 

001400 


BIT 

ISSE.RMER21 


.’ANY SKIP SECTOR ERROR ? 

2007 

025234 

001406 




BEQ 

20$ 



2008 

025236 

043737 

177737 

001142 


BIC 

*CSSE, JBDDAT 


.SAVE SSE FOR ERROR 

2009 

025244 

104227 




EMT 

227 



2010 

025246 

000137 

025720 



JMP 

37$ 



2011 

025252 




20$: 





2012 

025252 

004737 

054166 



JSR 

PC, DTASTS 

;G0 VERIFY RESULTS OF DATA TRANSFER 


2013 

2014 


2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 
2027 


025256 

025260 

025262 

025264 

025266 

025272 

025272 

025276 

025300 

025302 

025304 

025306 

025312 


025312 

025320 


025322 


025322 

025326 


000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


012737 

000410 


025720 

041760 

025720 

025322 001124 


21 $: 


22 $: 


BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


pc.acsp)* 

37$ 

PC.SECERR 

22 $ 


PC,a(SP>* 

37$ 


GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR n DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CFiECKS 
GO TO 37$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 


;CHANGE LOOP ADDRESSES 

MOV #23$,$LPERR 

BR 24$ 


.’LOOP Hi 
23$: 


READ 


004 7 37 
154130 


034032 


.’PREPARE DEVICE FOR READ OPERATION 


JSR 
.WORD 


PC.TSTPRP 
154130 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER % SELECT DcVICE 
VERIFY CONTROLLER CLEAR OPERATION 
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2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 


2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 


2052 

2053 

2054 

2055 


2056 

2057 

2058 

2059 

2060 
2061 


025330 

025332 

C25334 

025336 

025342 


025342 

025342 

025350 

025356 

025362 

025366 

025372 

025376 

025402 

025406 

025412 

025416 

025422 

025424 

025426 

025430 

025434 


000404 

000240 

104000 

000137 


012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


025434 004737 


02 5440 004737 


025444 

C25450 

025452 

025454 

025456 

025462 


025462 

025466 

025470 

025472 

025474 

025476 

025502 

025506 

025514 

025516 

025524 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

005037 

032737 

001407 

013737 

042737 


025720 


000071 001412 
105264 001416 
001555 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

040360 


025720 

040024 

040732 

040110 

025720 

041126 


025720 

001140 

000220 001352 

001352 001142 
177557 001142 


24$: 


BR 

NOP 

EMT 

JMP 


24$ 

37$ 


:READ DATA FROM DEVICE 
25$: 

MOV 
MOV 
MOV 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 


#RD!G0,RMCS10 

#8UF TWO+4 .RMBAO 

#PUT1NX.r2 

#RMDA, (R2> ♦ 

#RM0F,(R2>* 

#RMDC.<R2>* 

#RMBA,(R2>+ 

#RMWC.(R2>* 

#RMCS1.(R2>+ 

#200, (R2> 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr 1 OR ’VIP" IS SET 

VERIFY RECALIBRATION 

GO TO 24$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TC 37$ IF ERROR 


;REAC DATA COMMAND 

.-LOAD STARTING BUFFER ADDRESS 

.-LOAD PUT REGISTER INDEX TABLE 


26$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC .PUT 
26* 


37$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 26$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 37$ IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO 6ETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


GO READ STATUS FOR READ OPERATION 


27$: 


JSR 

BR 

NOP 

EMT 

JMP 


PC. GET 
27* 


37$ 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 27$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 37$ IF ERROR 


.•CHECK FOR ERRORS DURING READ OPERATION 


28$: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

CLR 

BIT 

BEO 

MOV 

BIC 


PC.PRIERR 

m 


PC.8(SP)+ 
3 7* 

$6DDAT 


GO CHECK FOR PRIMARY ERRORS 

GO TO 28$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 

.•EXPECTED STATUS 


#HCEIFER,RMER1I 

29$ 

RMER1I.SBDDAT 
#*C<HCE !FER>,$BDDAT 


.-ANY ERROR ? 

;N0! * 

.•RECEIVED STATUS 
.•CLEAR DONT CARES 


)1 
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SEQ 0131 


2062 

025532 

000412 



29$: 

BR 

30$ 

2063 

025534 





RMER2I ,$BDDAT 

2064 

025534 

013737 

001400 

001142 


MOV 

2065 

025542 

032737 

100000 

001400 


BIT 

#8SE.RMER2I 

2066 

025550 

001406 




BEO 

31$ 

2067 

025552 

042737 

077777 

001142 

30$: 

BIC 

#*CBSE,$BDDAT 

2068 

025560 





346 

2069 

025560 

104346 




EMT 

2070 

025562 

000137 

025720 


31$: 

JMP 

37$ 

2071 

025566 





#SSE .RMER2I 

2072 

025566 

032737 

000040 

001400 


BIT 

2073 

025574 

001406 




BEO 

32$ 

2074 

025576 

043737 

177737 

001142 


BIC 

*CS5E ,$BDDAT 

2075 

025604 

104227 




EMT 

227 

2076 

025606 

000137 

025720 


32$: 

JMP 

37$ 

2077 

025612 





PC, DTASTS 

33i 

2078 

025612 

004737 

054166 



JSR 


025616 

000405 




BR 


025620 

000240 




NOP 



025622 

104000 




EMT 

pc.a(SP)* 

37* 


025624 

0C4736 




JSR 


025626 

000137 

025720 


33$: 

JMP 

2079 

025632 







2080 025632 
025636 
025640 
025642 
025644 
025646 

2081 025652 

2082 025652 
025656 
025660 
025662 
025664 
025666 
025670 

2083 025674 

2084 

2085 025674 

2086 025676 

2087 025700 

2088 025702 

2089 025704 

2090 025710 

2091 025714 

2092 025714 

2093 025720 

2094 

2095 025720 

2096 

2097 


025720 

025720 

025722 


004737 

000405 

000240 

104000 

004736 

000137 

004 7j7 
104260 
105264 
000404 
000240 
104000 
000137 


006303 

001006 

005704 

001006 

012703 

012704 


041760 

025720 

037462 

025720 


000001 

000002 


000137 024454 


34$: 


35$: 


JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JMP 


ASL 

BNE 

TST 

BNE 

MOV 

MOV 

JMP 


PC.SECERR 
34i 


pc.a(SP>+ 

37i 

PC.CMPBUF 

BUF0NE+4 

BUFTUO+4 

35$ 


37$ 


R3 

36$ 

R4 

37$ 

#1.R3 

#2.R4 

2 $ 


RECEIVED STATUS 
ANY BAD SECTOR ERROR 
NO ! ! 

CLEAR DONT CARES 


ANY SKIP SECTOR ERROR ? 
NO ! ! 

SAVE SSE FOR ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 33$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 34$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 

GO COMPARE WRITE. READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
^STARTING ADDRESS OF READ BUFFER 
GO TO 35$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY CMP8UF SUBROUTINE 
GO TO 37$ IF ERROR 


SHIFT HCE BIT 
CONTINUE IF NOT DONE 
SECOND HEADER DONE?? 
YES' 1 

START WITH BIT 0 
DO SECOND HEADER WORD 


000004 

000240 


36$ 

37$ 

38$ 

• *************************************************************** 

‘•TEST 16 WRITE. READ W/ I VC ERROR 

• *************************************************************** 

TST16: 

SCOPE .‘SCOPE CALL 

NOP .-START OF TEST 
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025724 

025730 

025734 

025740 

2098 

2099 

2100 
2101 
2102 

2103 025746 

2104 025746 

2105 025754 

2106 025762 

2107 025770 

2108 025776 

2109 026004 

2110 


2116 

2117 

2118 026052 
026056 


2119 026072 

2120 

2121 

2122 026072 
026100 
026106 
026114 
026120 
026122 
026124 
026126 

2123 026132 

2124 

2125 

2126 026132 


012706 

013700 

013701 

012737 


001100 

001276 

001466 

000016 001226 


f STACK, SP 
S8ASE.R0 
TSTQUE.R1 
#16.$TESTN 


INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEIN6 TESTED 

; SET TEST NUMBER IN APT MAIL BOX 


.-LOOP #1 


WRITE, READ 


012737 

012737 

012737 

012737 

012737 

012737 


001057 

001000 

104254 

177400 

010000 

000060 


001446 

001420 

001416 

001414 

001444 

001412 


.-LOAD PARAMETERS AND GENERATE DATA BUFFER 
IS: 

MOV #559. .RMDCO .-CYLINDER 
MOV #TA2,RMDA0 .-TRACK = 
MOV #8UF0NE,RMBA0 ;BUS AD DR 
MOV #-256. .RMWCO ;256. UOR 
MOV #FMT16,RH0F0 ; 1 6 GIF F 
MOV #WD,RMCS10 .‘WRITE HE 


CYLINDER = 559. 

TRACK = 2, SECTOR = 0 

BUS ADDRESS 

256. WORDS (2’S COMP) 

16 Gif FORMAT 

WRITE HEADER AND DATA COMMA JD 


.•VERIFY THAT SECTOR IS NOT BAD 


026012 

004737 

034762 


JSR 

PC.BADSCT 

026016 

000405 



BR 

2$ 

026020 

104401 

066006 


TYPE 

.SCTMSG 

026024 

104000 



EMT 


026026 

000137 

0267* 0 


JMP 

22$ 

026032 



2$: 



026032 

012737 

001420 

001174 

MOV 

#RMDAO,$TMPO 

026040 

012737 

000001 

001176 

MOV 

#1 ,$TMP1 

026046 

004737 

037214 


JSR 

PC.GEN8UF 


.•CALL BAD SECTOR MODULE 

;G0 TO 2S IF NO ERROR 

.-TYPE BAD SECTOR MESSAGE 

.-ERROR # DEFINED BY BADSCT SUBROUTINE 

;G0 TO 22 S IF ERROR 

;USE SECTOR FOR DATA PATTERN 

;G0 GENERATE DATA BUFFER 


004737 

154130 


034032 


.•PREPARE DEVICE FOR WRITE OPERATION 


JSR 

.WORD 


PC.TSTPRP 

154130 


026060 

000404 

BR 

3$ 

;G0 TO 3$ IF NO ERROR 

026062 

000240 

NOP 


.•RETURN HERE IF ERROR 

026064 

104000 

EMT 


.•ERROR # DEFINED BY TSTPRP SUBROUTINE 

026066 

000137 026740 

JMP 

22$ 

;G0 TO 22$ IF ERROR 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI” OR *T>IP" IS SET 
VERIFY RECALIBRATION 


112737 000024 001555 

112737 000200 001556 

012737 000001 001436 

004737 040360 

000404 

000240 

104000 

000137 026740 


.•RESET VOLUME VALID 

M0V8 #RMI 

MOVB #20 

MOV #DM 

JSR PC.I 

BR 4$ 

NOP 
EMT 

JMP 22$ 

4$: 


#RMHR1 .PUTINX 
#200.PUTINX*1 
#DND.RNRR10 
PC, PUT 

4$ 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMO 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 


; SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 

5 $: 
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2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 
2133 

2136 

2137 

2138 

2139 


2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 


2148 

2149 

2150 

2151 


2152 

2153 

2154 

2155 

2156 


2157 

2158 

2159 

2160 
2161 
2162 
2163 


026132 

026140 

026146 

026152 

026156 

026162 

026166 

026172 

026176 

026202 

026206 

026212 

026216 

026220 

026222 

026224 

026230 


012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 
I 1 2722 

004737 

000404 

000240 

104000 

000137 


026230 004737 


026234 004737 


026240 

026244 

026246 

026250 

026252 

026256 


026256 

026262 

026264 

026266 

026270 

026272 

026276 

026276 

026304 

026306 

026312 

026314 

026316 

026320 

026322 

026326 

026326 

026334 

026342 

026350 

026352 

026356 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

032737 

001024 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

013737 

052737 

104342 

000137 


000061 001412 

000000 001436 
001555 
000024 
000006 
000034 
000032 
000002 
000004 
000000 
000200 

040360 

026740 

040024 

040732 

040110 

026740 

041 126 

026740 

010000 001400 
054166 

026740 

001400 001142 
001400 001140 
010000 001140 

026740 


6 $: 


NOV #WD!G0,RNCS10 

NOV #0,RNNk10 

NOV #PUTINX.R2 

N0V8 #RMNR1,(R2>* 

N0V8 #RMDA,(R2>* 

H0V8 #RMDC.(R2H 

N0V8 #RM0F.(R2)* 

NOVB #RMWC,(R2>* 

N0V8 #RMBA.(R2>* 

NOVB #RMCSl,(R2)* 

NOVB #200, (R2) ♦ 

JSR PC, PUT 

BR 6* 

NOP 

ENT 

JMP 22$ 


.-WRITE DATA COMMAND 

.•RESET DIAGNOSTIC NODE 

;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 

GO WRITE REGISTER C S> WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 


; SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINt 


.-WAIT FOR COMMAND TO CONPLETE 
JSR PC,TIMOUT 


;G0 TO TJMOUT SUBROUTINE 


;G0 READ STATUS FOR WRITE CONMAND 


7$: 


JSR 

BR 

NOP 

ENT 

JNP 


PC, GET 

7$ 


22 $ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 22$ IF ERROR 


.-CHECK FOR ERRORS DURING WRITE OPERATION 


8 $: 


9$: 


10 $: 


JSR 

BR 

NOP 

ENT 

JSR 

JNP 

BIT 

BNE 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 

NOV 

NOV 

BIS 

ENT 

JNP 


PC, PR I ERR 

8 $ 


pc.acsp)* 

22i 

#!VC,RMER2I 

10 $ 

PC.DTASTS 

9$ 


pc.acsp)* 

22i 

RNER2I ,$6DDAT 
RMER2I ,$GDDAT 
#JVC,$GDDAT 
342 
22 $ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHEC* j 

GO TO 22$ IF ERROR 


;UAS "IVC* 
; YES ! ! 


DETECTED?? 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

.•RECEIVED STATUS 
; EXPECTED STATUS 


SEA 
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2164 026356 
026362 
026364 
026366 
026370 
026372 

2165 026376 

2166 

216/ 

2168 026376 

2169 026404 

2170 

2171 

2172 

2173 

2174 026406 

2’75 

2176 

2177 026406 
026412 


004737 

041760 

JSR 

OOC405 


BR 

000240 


NOP 

104000 


EMT 

004736 


JSR 

000137 

026740 

JMP 



11$: 



.•CHANGE LOOP 

012737 

026406 001124 

MOV 

000410 


BR 


PC.SECERR 

ni 


PC. 8(SP) + 

22i 


GO CHECK FOR SECONDARY ERRORS 

50 TO 111 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 221 IF ERROR 


004737 034032 
154130 


026414 

026416 

026420 

026422 

2178 026426 

2179 

2180 

2181 026426 
026434 
026442 
026450 
026454 
026456 
026460 
026462 

2182 026466 

2183 

2184 

2185 026466 

2186 026466 

2187 026474 

2188 026502 

2189 026510 

2190 026514 

2191 026520 

2192 026524 

2193 026530 

2194 026534 

2195 026540 

2196 026544 


000404 

000240 

104000 

000137 026740 


#12$.$LPERR 
13$ 

******************************** ******************************** 


;LOOP 02 
12 $: 


READ 


.•PREPARE DEVICE FOR READ OPERATION 


JSR 
.WORD 


rC.TSTPRP 
154130 


004737 040360 
000404 
000240 
104000 

000137 026740 


012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 



BR 

NOP 

EMT 

13$ 


JMP 

13$: 

22$ 


.•RESET VOLUME 

VALID 

001555 

MOVB 

fRMMRI .PUTINX 

001556 

movb 

#200,PUTINX*1 

001436 

MOV 

0DMD.RMMR1O 

JSR 

PC.PUT 


BR 

NOP 

EMT 

14i 


JMP 

22$ 


14f * 

.-READ DATA FROM DEVICE 
15 $: 


0001 ’1 

001412 

MOV 

105260 

001416 

MOV 

mmm 

001436 

MOV 

001555 


MOV 

000024 


MOVB 



MOVB 

000032 


MOVB 

000034 


MOVB 

mwim 


MOVB 



MOVB 

000000 


MOVB 


fRD.'GO.RMCSIO 

#8UFTW0.R«BA0 

#0,RMMR10 

#PUTINX.R2 

#RMMR1.(R2M 

#RMDA,(R2>* 

#RM0F,(R2H 

#RM0C,(R2H 

#RMBA.(R2>+ 

#RMWC.(R2>* 

#RMCS1.<R2H 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE l VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '■SKI*' OR "PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 22$ IF ERROR 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMD 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 


READ DATA COMMAND 

LOAD STARTING BUFFER ADDRESS 

RESET DIANOSTIC MODE 

LOAD PUT REGISTER INDEX TABLE 


ill V 


SEQ 


) 

WRITE. 

READ W/ 

1VC ERROR 



2197 

2198 

2199 

026550 

112712 

000200 

movb 

#200. (R2> 

026554 

004737 

040360 

JSR 

PC .PUT 

16* 


020560 

000404 


BR 


026562 

000240 


NOP 



026564 

104000 


EMT 

22$ 


026566 

000137 

026740 

JMP 


2200 026572 

2201 
2202 

026572 

2203 

2204 

026576 

2205 

2206 

2207 026602 
026606 
026610 
026612 
026614 

2208 026620 

2209 

2210 

2211 026620 
026624 
026626 
026630 
026632 
026634 

2212 026640 

2213 026640 

2214 026646 

2215 

2216 026650 
026654 
026656 
026660 
026662 
026664 

2217 026670 
221 § 026670 

2219 026676 

2220 026704 

2221 026712 

2222 026714 

2223 026720 

2224 026720 
026724 
026726 
026730 
026732 
026734 

2225 026740 

222 v' 

2227 026740 

2228 


16S: 


60 WRITE REGISTERS) WITH PUT SUBROUTINE 

GO TO 16S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 22J IF ERROR 


004737 040024 
004737 040732 


004737 040110 
000404 
000240 
104000 

000137 026740 


004737 

000405 

000240 

104000 

004736 

000137 

032737 

001024 

004737 

000405 

000240 

104000 

004736 

000137 

013737 

052737 

013737 

104342 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TJMOUT SUBROUTINE 


STATUS 

FOR READ 

OPERATION 

JSR 

PC .GET 

;G0 READ REGISTERS) WITH GET SUBROUTINE 

BR 

17* 

;G0 TO 17$ IF NO ERROR 

NOP 


.•RETURN HERE IF ERROR 

EMT 


.•ERROR # DEFINED BY GCT SUBROUTINE 

JMP 

22$ 

;G0 TO 22$ IF ERROR 


041126 

026740 

010000 

054166 

026740 

001400 

010000 

001400 

026740 

041760 

026740 


17 $: 

; CHECK FOR ERRORS DURING READ OPERATION 


001400 


18$: 


001140 

001140 

001142 


19$: 


20 $: 


21 $: 

22 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

BIT 

BNE 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 

BIS 

MOV 

EMT 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC .PR I ERR 

18 * 


PC.i(SP)* 

22 * 

#IVC.RMER2I 

20 $ 

PC.DTASTS 

19* 


PC.aCSPH 

22 * 

RMER2I ,$GDDAT 
#IVC.$GDDAT 
RMER2I ,$8DDAT 
342 
22 $ 

PC.SECERR 

21 * 


pc.acsp)* 

22 * 


GO CHECK FOR PRIMARY ERRORS 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 


;WAS "I VC* 
; YES ! J 


DETECTED?? 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

.•EXPECTED STATUS 

.RECEIVED STATUS 


GO CHECK FOR SECONDARY ERRORS 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 
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2229 


•TEST 17 


WRITE. READ U/ ABORT 


026740 

026740 

000004 

tST17: 

SCOPE 

026742 

000240 


NOP 

026744 

0127% 

001100 

MOV 

026750 

01 3700 

001276 

MOV 

026754 

013701 

001466 

MOV 

026 760 

012737 

000017 001226 

MOV 


#STACK,SP 

SBASE.RO 

TST0UE.R1 

#17,$TESTN 


SCOPE CALL 

START Of TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

CRT ) - DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


2230 

2231 

2232 

2233 

2234 

2235 026766 

2236 026774 

2237 027002 

2238 027010 

2239 027016 

2240 027024 

2241 027032 

2242 

2243 

2244 027032 
027036 


.-LOOP #1 


WRITE. READ 


012737 

012737 

012737 

012737 

012737 

012737 


004737 
1 541 30 


001057 

001000 

104254 

177400 

010000 

000061 


034032 


001446 

001420 

00(416 

001414 

001444 

001412 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 


IS: 


MOV #559..RMDCO 

MOV #TA2,RMDA0 

MOV #BUFONE,RMBAO 

MOV #-256. .RMWCO 

NOV #FNT16,RN0F0 

MOV #WD!G0,RNCS10 


CYLINDER = 559. 

TRACK = 2. SECTOR = 0 
BUS ADDRESS 
256. WORDS (2'S COMP) 
16 BIT FORMAT 
WRITE DATA COMMAND 


.•PREPARE DEVICE FOR WRITE OPERATION 


JSR 
.WORD 


PC.TSTPRP 

154130 


027040 

000404 




BR 

2$ 

027042 

000240 




NOP 


027044 

104000 




EMT 


027046 

000137 

027656 



JMP 

21$ 

2245 027052 




2S: 



2246 







2247 




.SET 

UNSAFE ERROR 

2248 027052 

112737 

000014 

001555 


MOVB 

fRMERI .PUTINX 

027060 

112737 

000200 

001556 


M0V8 

#200.PUTINX*1 

027066 

012737 

040000 

001426 


MOV 

IUNS.RMER10 

027074 

004737 

040360 



JSR 

PC, PUT 

027100 

000404 




BR 

3$ 

027102 

000240 




NOP 


027104 

104000 




EMT 


027106 

000137 

027656 



JMP 

21$ 

2249 027112 




3$: 



/cj\j 

2251 




.WRITE DATA TO 

THE DRIVE 

2252 027112 




4$: 



2253 027112 

012737 

000061 

001412 


MOV 

#UD.'G0,RMCS10 

2254 027120 

012702 

001555 



MOV 

#PUTINX,R2 

2255 027124 

1i 2^22 

000006 



MOVB 

#RMDA,(R2H 

2256 027130 

112722 

000034 



MOVB 

#RMDC.(R2)* 

2257 027134 

112722 

000032 



MOVB 

#RM0F.(R2)* 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR ’WP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 21S IF ERROR 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMER1 OUTPUT BUFFER = UNS 

GO WRITE RMER1 VIA PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 21S IF ERROR 


; WRITE DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 


CZ&N'JL RM80 FC'NL PT3 MACRO V04.00 28-JAN-3< Pa&£ 13-6? 

T17 WRITE , READ W/ ABORT 


StO 


2258 

027H0 

112722 

000004 



MOVB 

#RMBA,(R2)+ 


22 59 

027144 

112722 

000002 



movb 

#RMWC, <R2) ♦ 


22 60 

0271 50 

112722 

000000 



MOVB 

#RMCS1,(R2)+ 


2261 

027154 

112722 

000200 



MOVB 

#200, (fo> ♦ 

.'TERMINATE TABLE 

2262 









2263 

027160 

004737 

040360 



JSR 

PC, PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 


027164 

000404 




BR 

5$ 

GO TO 5$ IF NO ERROR 


027166 

000240 




NOP 


RETURN HERE IF ERROR 


027170 

104000 




EMT 


ERROR # DEFINED BY PUT SUBROUTINE 


027172 

000137 

027656 



JMP 

21$ 

GO TO 21$ IF ERROR 

2264 

027176 




5$: 




2265 









2266 





.'SETUP GET INDEX TABLE TO READ ALL REGISTERS 


027176 

004737 

040024 



JSR 

PC,GETSTS 

GO TO GETSTS SUBROUTINE 

ccOr 

2268 





;G0 GET 

REGISTER STATUS 


2269 

027202 

004737 

u4wi10 



JSR 

PC, GET 

GO READ REGISTER (S) WITH GET SUBROUTINE 


027206 

000404 




BR 

6$ 

GO TO 6$ IF NO ERROR 


027210 

000240 




NOP 


RETURN HERE IF ERROR 


027212 

104000 




EMT 


ERROR # DEFINED BY GET SUBROUTINE 


027214 

000137 

027656 



JMP 

21$ 

GO TO 21$ IF ERROR 

2270 

027220 




6$: 




2271 

027220 

032737 

020000 

001350 


BIT 

#PIP,RHDSI 

.-WAS COMMAND EXECUTED? 

2272 

027226 

001412 




8E0 

7$ 

;N0, GO WAIT 

2273 

027230 

013737 

001350 

001140 


MOV 

RMDSI .$GDDAT 

.EXPECTED STATUS 

2274 

027236 

042737 

020000 

001140 


BIC 

#PIP,$GDDAT 


2275 

027244 

013737 

001350 

001142 


MOV 

RMDSI ,$6DDAT 

.'RECEIVED STATUS 

2276 

027252 

104347 




EMT 

347 


2277 

027254 




7$: 




2278 









2279 





;UA1T FOR COMMAND TO COMPLETE 



027254 

004737 

040732 



JSR 

PC.TIMOUT 

GO TO TIMOUT SUBROUTINE 

2280 









2281 





;G0 GET 

REGISTER STATUS 


2282 

027260 

004737 

040110 



JSR 

PC, GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 


027264 

000404 




BR 

8$ 

GO TO 8$ IF NO ERROR 


027266 

000240 




NOP 


RETURN HERE IF ERROR 


027270 

104000 




EMT 


ERROR # DEFINED BY GET SUBROUTINE 


027272 

000137 

027656 



JMP 

21$ 

GO TO 21$ IF ERROR 

2283 

027276 




8$: 




2284 

027276 

004737 

041126 



JSR 

PC.PRIERR 

GO CHECK FOR PRIMARY ERRORS 


027302 

000405 




BR 

9$ 

GO TO 9$ IF NO ERROR 


027304 

000240 




NOP 


RETURN HERE IF ERROR 


027306 

104000 




EMT 


ERROR # DEFINED BY PRIERR SUBROUTINE 


027310 

004736 




JSR 

PC.a(SP)* 

GO BACK FOR MORE ERROR CHECKS 


027312 

000137 

027656 



JMP 

21$ 

GO TO 21$ IF ERROR 

2235 

027316 




9$: 




2286 

027316 

004737 

041760 



JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 


027322 

000405 




BR 

ioi 

GO TO 10$ IF NO ERROR 


027324 

000240 




NOP 


RETURN HERE IF ERROR 


027326 

104000 




EMT 


ERROR # DEFINED BY SECERR SUBROUTINE 


027330 

004736 




JSR 

pc.acsp)* 

GO BACK FOR MORE ERROR CHECKS 


027332 

000137 

027656 



JMP 

2ii 

GO TO 21$ IF ERROR 

2287 

027336 




10$: 




2288 









2289 





.‘CHANGE 

LOOP ADDRESSES 


2290 

027336 

012737 

027346 

001124 


MOV 

#11$,$LPERR 



SEO 0138 
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2291 

*292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 


027344 000410 


027346 


027346 004737 034032 
027352 154130 


2300 

2301 

2302 

2303 


2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 


2319 

2320 

2321 

2322 

2323 


027354 

027356 

027360 

027362 

027366 


027366 

027374 

027402 

027410 

027414 

027416 

027420 

027422 

027426 


027426 

027426 

027434 

027440 

027444 

027450 

027454 

027460 

027464 

027470 

027474 

027500 

027502 

027504 

027506 

027512 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


8R 


12$ 


.-LOOP #2 
11 $: 

.•PREPARE DEVICE 
JSR 
.WORD 


READ 


FOR READ OPERATION 


PC.TSTPRP 
154130 


000404 

000240 

104000 

000137 027656 


112737 000014 001555 

112737 000200 001556 

012737 040000 001426 

004737 040360 

000404 

000240 

104000 

000137 027656 


12 $: 


BR 

HOP 

ENT 

JMP 


12 $ 


21 $ 


;SET UNSAFE ERROR 

NOVB #RMER1 .PUTINX 


13 $: 


MOVB 

NOV 

JSR 

BR 

NOP 

ENT 

JMP 


#200, PUT I NX *1 
#UNS,RNER10 
PC.PUT 
13i 


21 $ 


000071 001412 

001555 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

040360 


027656 


;READ DATA FRON DEVICE 
14$: 

NOV 
NOV 
H0V8 
NOVB 
N0V8 
N0V8 
NOVB 
N0V8 
NOVB 


#RD.'60,RNCS10 
#PUTINX,R2 
fRNDA, <R2> ♦ 
#RM0F,(R2>* 
#RMDC,(R2)+ 
#RNBA.(R2>* 
#RMWC.(R2>* 
#RNCS1,(R2>* 
#200,(62) 


15$: 


JSR 

BR 

NOP 

ENT 

JMP 


PC-PUT 

15i 


21 $ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SEIECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF , *SKr* OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 21$ IF ERROR 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMER1 OUTPUT BUFFER = UNS 

GO WRITE RMER1 VIA PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 21$ IF ERROR 


; READ DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 21$ IF ERROR 


027512 004737 040024 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS ^ ti r 
JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 

.-SEE IF DEVICE STARTED COMMAND 
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?326 

2327 


2324 027316 
027522 
027524 
027526 
027530 

2325 027534 
027534 
027542 

2328 027544 

2329 027552 

2330 027560 

2331 027566 

2332 027570 

2333 027574 

2334 

2335 

027574 

2336 

2337 

2338 027600 
027604 
027606 
027610 
027612 

2339 027616 

2340 027616 
027622 
027624 
027626 
027630 
027632 
027636 
027636 
027642 
027644 
027646 
027650 
027652 

2343 027656 

2344 

2345 027656 

2346 

2347 


027656 

027656 

027660 

027662 

027666 

027672 

027676 

2348 

2349 

2350 

2351 

2352 027704 


2341 
23'- 


■i 2 


004737 

000404 

000240 

104000 

000137 

032737 

001414 

013737 

042737 

013737 

104347 

000137 


004737 


004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


040110 

027656 

020000 

001350 

020000 

001350 

027656 

040732 

040110 

027656 

041126 

027656 

041760 

027656 


001350 

001140 

001140 

001142 


1 6 $: 


17 $: 


JSR 

BR 

NOP 

ENT 

JNP 

BIT 

BEQ 

NOV 

BIC 

NOV 

ENT 

JNP 


PC.GET 

i6i 


21 $ 

APIP.RHDSI 

17$ 

RNDSI ,$GDDAT 
#PJP,$GDDAT 
RNDSI ,$8DDAT 
347 
21 $ 


.-WAIT FOR CONHAND TO CONPLETE 
JSR PC.TINOUT 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 21$ IF ERROR 

;WAS CONHAND EXECUTED?? 

•NO* 1 

•EXPECTED STATUS 
; RECEIVED STATUS 


;G0 TO TINOUT SUBROUTINE 


;G0 READ STATUS 
JSR 
BR 
NOP 
ENT 
JNP 


FOR READ OPERATION 


18$: 


19$: 


20 $: 

21 $: 


JSR 

BR 

NOP 

ENT 

JSR 

JNP 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 


PC.GET 

18i 


21 $ 

PC.PRIERR 

19$ 


PC,8(SP)+ 

21 $ 

PC.SECERR 

20i 


pc.aisp)* 

21 i 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY GET SUBROUTINE 

GO TO 21$ IF ERROR 

GO CHECK FOR PRIHARY ERRORS 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR HORE ERROR CHECKS 

GO TO 21$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR HORE ERROR CHECKS 

GO TO 21$ IF ERROR 


000004 


SCOPE 

000240 


NOP 

012706 

001100 

NOV 

013700 

001276 

NOV 

013701 

001466 

NOV 

012737 

000020 001226 

NOV 


**************************************************************** 

West 20 write, read early peak shift 
**************************************************************** 

TST20: 

.•SCOPE CALL 
.•START OF TEST 

fSTACK.SP .-INITIALIZE STACK POINTER 

SBASE.RO ;R0 = UN I BUS ADDRESS 

tstqu£,ri ;<ri> = device being tested 

#20.$TESTN ; ; SET TEST NUHBER IN APT NAIL BOX 


;L00P #1 
IS: 


FORMAT. WRITE, READ 


SEQ 
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SEO OHO 


2353 

2354 

2355 027704 004737 034032 
027710 154130 


2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 


2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 


2383 

2384 

2385 

2386 

2387 


027712 

027714 

027716 

027720 

027724 


027724 

027732 

027740 

027746 

027754 

027762 


027770 

027774 

027776 

030002 

030004 

030010 

030010 

030016 

030024 


030030 

030034 

030040 

030044 

030050 

030054 

030060 

030064 

030070 

030070 

030074 

030076 

030100 

030102 

030106 


000404 

000240 

104000 

000137 030664 


012737 

012737 

012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


; PREPARE THE DEVICE FOR FORMAT 


JSR 
.WORD 


PC.TSTPRP 
154130 


2 $: 


BR 
NOP 
EMT 
J MP 


2 $ 


25$ 


001057 

001000 

104254 

177376 

010000 

000063 


034762 

066006 

030664 

067670 

000001 

037214 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 

040360 


030664 



.-LOAD PARAMETERS AND GENERATE 

001446 

MOV 

#559. ,RMDCO 

001420 

MOV 

#TA2.RMDA0 

001416 

MOV 

#8UF0NE.RMBA0 

001414 

MOV 

#-2 58..RMWC0 

001444 

MOV 

#FMT16,RM0F0 

001412 

MOV 

#WH!G0,RMCS10 


.•VERIFY THAT 

SECTOR IS NOT BAI 


JSR 

PC .BADSCT 


BR 

3$ 


TYPE 

.SCTMSG 


EMT 



JMP 

25$ 


3$: 


001174 

MOV 

#EARLY,$TMPO 

001176 

MOV 

#1 ,$TMP1 


JSR 

PC.GENBUF 


.♦LOAD PUT REGISTER INDEX TABLE 
#PUTINX,R2 
DC,(R2>* 
#RNDA,(R2>* 
#RNBA,(R2>+ 
#RMWC,(R2)+ 
#RN0F.(R2)* 
#RMCS1,(R2>* 
#200, (R2) 


4$: 


5$: 


NOV 

wove 

movb 

wove 

wove 

MOVB 

wove 

movb 

JSR 

BR 

NOP 

EMT 

JMP 


OPERATION 

; PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF ,, SKI" OR 'WP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 25$ IF ERROR 


CYLINDER = 559. 

TRACK = 2, SECTOR = 0 
BUS ADDRESS 

2 ♦ 256. WORDS (2'S COMP) 

16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 


CALL BAD SECTOR MODULE 
GO TO 3$ IF NO ERROR 
TYPE BAD SECTOR MESSAGE 
ERROR # DEFINED BY BADSCT SUBROUTINE 
GO TO 25$ IF ERROR 

STARTING ADDRESS OF PATTERN 
RANGE OF PATTERN 
GO GENERATE BUFFER FOR FORMAT 

FOR FORMAT OPERATIION 

;R2 = BYTE ENTRY POSITION 


PC, PUT 

5$ 


25$ 


.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 


030106 004737 040024 


.•SETUP GET INDEX TABLE TO READ ALL REGISTERS _ „ 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 

.-WAIT FOR COMMAND TO COMPLETE 



CZRNFAO RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-71 
T20 WRITE. READ EARLY PEAK SHIFT 



030112 

004737 

040732 



JSR 

PC.TIMOUT ; 

GO TO TIMOUT SUBROUTINE 

2388 









2389 





;G0 READ STATUS 

FOR FORMAT OPERATION 

2390 

030116 

004737 

040110 



JSR 

PC. GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 


030122 

000404 




BR 

6$ 

GO TO 6$ IF NO ERROR 


030124 

000240 




NOP 


RETURN HERE IF ERROR 


030126 

104000 




EMT 

25$ 

ERROR # DEFINED BY GET SUBROUTINE 


030130 

000137 

030664 



JMP 

GO TO 25$ IF ERROR 

2391 

030134 




6$: 




2392 









2393 





.•VERIFY 

NO ERRORS DURING FORMAT 


2394 

030134 

004737 

054166 



JSR 

PC.DTASTS 

GO VERIFY RESULTS OF DATA TRANSFER 


030140 

000405 




BR 

7$ 

GO TO 7$ IF NO ERROR 


030142 

000240 




NOP 


RETURN HERE IF ERROR 


030144 

104000 




EMT 


ERROR # DEFINED BY DTASTS SUBROUTINE 


030146 

004736 




JSR 

PC.a(SP)* 

25i 

GO BACK FOR MORE ERROR CHECKS 


030150 

000137 

030664 



JMP 

GO TO 25$ IF ERROR 

2395 

030154 




7$: 




2396 









2397 





.-MOVE LOOP ADDRESSES TO NEXT OPERATION 

2398 

030154 

012737 

030164 

001124 


MOV 

#8$,$LPERR 


2399 

030162 

000410 




BR 

9$ 


2400 









2401 





••****♦******■; *************************************** ************ 

2402 





.•LOOP #2 

WRITE. READ 


2403 









2404 

030164 




8$: 




2405 









2406 





.PREPARE DEVICE 

FOR WRITE OPERATION 

2407 

030164 

004737 

034032 



JSR 

PC.TSTPRP 

PREPARE DEVICE FOR TEST 


030170 

154130 




.WORD 

154130 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE 8 VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI*' OR •^IP" IS SET 
VERIFY RECALIBRATION 


030172 

000404 




BR 

9$ 

GO TO 9$ IF NO ERROR 


030174 

000240 




NOP 


RETURN HERE IF ERROR 


030176 

104000 




EMT 


ERROR # DEFINED BY TSTPRP SUBROUTINE 


030200 

0C0137 

030664 



JMP 

25$ 

GO TO 25$ IF ERROR 

2408 

030204 




9$: 




2409 









2410 





.-WRITE 

DATA TO 

THE DRIVE 


2411 

030204 




10$: 




2412 

030204 

012737 

1 77400 

001414 


MOV 

#-256. .RMWCO 

CHANGE WORD COUNT 

2413 

030212 

012737 

104260 

001416 


MOV 

#8UF0NE+4.RMBA0 

.•CHANGE ADDRESS 

2414 

030220 

012737 

000061 

001412 


MOV 

#WD!G0.RMCS10 

.•WRITE DATA COMMAND 

2415 

030226 

012702 

001555 



MOV 

#PUTINX.R2 

.•LOAD PUT REGISTER INDEX TABLE 

2416 

030232 

112722 

000006 



MOVB 

#RMDA,(R2)* 


2417 

030236 

112722 

000034 



MOVB 

#RMDC.(R2)+ 


2418 

030242 

112722 

000032 



MOVB 

#RM0F,(R 2)* 


2419 

030246 

112722 

000004 



MOVB 

#RMBA.(R2H 


7420 

030252 

112722 

000002 



MOVB 

#RMWC. CR2) 


7421 

030256 

112722 

000000 



MOVB 

#RMCS1.(R2>* 


2422 

030262 

112722 

000200 



MOVB 

#200. (R 2)* 

.•TERMINATE TABLE 


SEQ OKI 


CZRNF AO RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PA6E 13-72 
T20 WRITE. READ EARLY PEAK SHIFT 


SEQ 0142 


2423 

2424 


2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 


2433 

2434 

2435 

2436 


2437 

2433 


2439 

2440 


2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2452 

2453 


030266 

030272 

030274 

030276 

030300 

030304 


030304 

030310 


030314 

030320 

030322 

030324 

030326 

030332 


030332 

030336 

030340 

030342 

030344 

030346 

030352 

03035? 

030356 

030360 

030362 

030364 

030366 

030372 

030372 

030376 

030400 

030402 

030404 

030406 

030412 


030412 

030420 


030422 


030422 

030426 


004737 

000404 

000240 

104000 

000137 


004737 

004737 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


012737 

000410 


040360 

030664 

040024 

040732 

040110 

030664 

041126 

030664 

054166 

030664 

041760 

030664 

030422 001124 


JSR 

PC .PUT 

;G0 WRITE RE6ISTER(S> WITH PUT SUBROUTINE 

BR 

11$ 

;G0 TO 11$ IF NO ERROR 

NOP 


.•RETURN HERE IF ERROR 

EMT 


; ERROR 0 DEFINED BY PUT SUBROUTINE 

JMP 

25$ 

;G0 TO 25$ IF ERROR 


11 $: 

.•SETUP 6ET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 tq GETSTS SUBROUTINE 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR WRITE COMMAND 


12 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC .GET 

12 $ 


25$ 


.•CHECK FOR ERRORS DURING WRITE 


13$: 


14$: 


15 $: 


JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 


PC.PRIERR 
13$ 


rr.a(SP)* 

25 $ 

PC.DTASTS 

14$ 


PC.i(SP)* 

25$ 

PC.SECERR 

15$ 


PC.i(SP)* 

25$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 13$ IF NO ERROR 
; RE TURN HERE IF ERROR 
; ERROR * DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
:G0 TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 


.•CHANGE LOOP ADDRESSES 

MOV #16$,$LPERR 

BR 17$ 

••****t**************t*************t******* ********************** 


.-LOOP #3 
16$: 


READ 


004737 034032 
154130 


.•PREPARE DEVICE FOR READ OPERATION 

JSR PC.TSTPRP .-PREPARE DEVICE FOR TEST 

.WORD 15*130 .-TASK DESCRIPTOR AS FOLLOWS: 


IZRWAO RM80 FiTNl PT 3 MACRO V04.0Q 28-JAN-82 16:49:32 PAGE 13-73 
120 WRITE, READ EARLY PEAK SHIFT 


SEQ 0143 


030430 

030432 

030434 

030436 

2454 030442 

2455 

2456 

2457 030442 

2458 030442 

2459 030450 

2460 030456 

2461 030462 

2462 030466 

2463 030472 

2464 030476 

2465 030502 

2466 030506 

2467 030512 

2468 

2469 030516 
030522 
030524 
030526 
030530 

2470 030534 

2471 

2472 

030534 

2473 

2474 

030540 

2475 

2476 

2477 030544 
030550 
030552 
030554 
030556 

2478 030562 

2479 


000404 

000240 

104000 


012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 



BR 

17$ 


NOP 



EMT 

25$ 

03G664 

JMP 


17 $: 

.-READ DATA FROM DEVICE 


000071 001412 

105264 001416 
001555 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

040360 


030664 


004737 040024 


004737 040732 


004737 040110 
000404 
000240 
104000 

000137 030664 


MOV 

#RD:G0,PHCS10 

MOV 

#8UF TWO+4 , RMBAO 
#PUTINX,R2 

MOV 

MOVB 

#RMDA. (R2)+ 

MOVB 

#RM0F.(R2>* 

MOVB 

#RMDC.(R2>* 

MOVB 

#RMBA.(R2>+ 

MOVB 

#RMWC.(R2)+ 

MOVB 

#RMCS 1 . (R2) + 

MOVB 

#200. (R2) 

JSR 

PC.PUT 

BR 

NOP 

EMT 

19$ 

JMP 

19$: 

25$ 

.•SETUP GET INDEX TABLE TO READ 

JSR 

PC, GETSTS 


SELECT DEVICE t VERIFY DEVICE AVAIL 48' E 

CLEAR CONTROLLER i SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ''SKI'’ OR 'WP" IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 


READ DATA COMMAND 
CHANGE BUFFER 

LOAD PUT REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 19$ IF NO ERROR 
..•RETURN HERE IF ERROR 
.•ERROR # DEFINED BY PUT SUBROUTINE 
;G0 TO 25$ IF ERROR 


;G0 TO GETSTS SUBROUTINE 


.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR READ OPERATION 


20 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC.GET 

20i 


25$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 


2481 

030562 

004737 

041126 

JSR 

PC.PRIERR 

21$ 

030566 

000405 


BR 


030570 

000240 


NOP 



030572 

104000 


EMT 

PC.a(SP)* 

25$ 


030574 

004736 


JSR 


030576 

000137 

030664 

JMP 

248 ? 

030602 



21$: 

PC.DTASTS 

22$ 

’483 

030602 

004737 

054166 

JSR 


030606 

000405 


BR 


.•CHECK FOR ERRORS DURING READ OPERATION 

GQ CHECK FQR p RIHARy ERRORS 

GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PR I ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 22$ IF NO ERROR 



SEQ 0144 


UKNFAQ R*10j KINl HT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-74 
T 20 WRITE. READ EARLY PEAK SHIFT 


030610 

030612 

030614 

C30616 

2484 030622 

2485 030622 
030626 
030630 
030632 
030634 
030636 

2486 030642 

2487 030642 
030646 
030650 
030652 
030654 
030656 
030660 

2488 030664 

2489 

2490 030664 

2491 

2492 


030664 

030664 

030666 

030670 

030674 

030700 

030704 

2493 

2494 

2495 

2496 

2497 030712 

2498 

2499 

2500 030712 
030716 


000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

104260 

105264 

000404 

G00240 

104000 

000137 


030664 

041760 


03C664 

037462 


030664 


JSR 

.WORD 

.WORD 

8R 

NOP 

EMT 

JMP 


pc.a<sp>* 

25i 

PC.SECERR 

23i 


pc.acp)* 

25i 

PC.CMPBUF 

BUFONEH 

8UFTW0+4 

24$ 


RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR WORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO COMPARE WRITE, READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE 8UFFER 
.•STARTING ADDRESS OF READ BUFFER 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 9 DEFINED BY CMPeUF SUBROUTINE 
GO TO 25$ IF ERROR 


000004 

000240 

0127C6 001100 
013700 001276 
013701 001466 
012737 000021 


001226 


;;**** 

.-•TEST 

21 

WRITE. READ EACH 

TRACK W/ MIXED PEAK SHIFT 

;;**** 
TST21 : 





SCOPE 


; SCOPE CALL 


NOP 


; START OF TEST 


MOV 

#<TACK,SP 

.-INITIALIZE STACK POINTER 


MOV 

S8ASE.R0 

;R0 - UNIBUS ADDRESS 


MOV 

TST0UE.R1 

;(R1> * DEVICE BEING TESTED 

• • ***» 

MOV 

******** 

#21 .STESTN 

;;SET TEST NUMBER IN APT MAIL BOX 


.•LOOP Ml 


FORMAT. WRITE .READ 


004737 034032 
154130 


; PREPARE THE DEVICE FOR FORMAT OPERATION 


JSR 

.WORD 


PC.TSTPRP 

154130 


030720 000404 
030722 000240 
030724 104000 
030726 000137 031712 

2501 030732 

2502 

2503 

2>0a 030732 012737 001060 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •‘SKI" OR *$»IP M IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY TSTPRP SUBROUTINE 

GO TO 26$ IF ERROR 


001446 


.-LOAD PARAMETERS AND GENERATE DATA BUFFER 


*560. .RMDCO 


.•CYLINDER = 560. 


UNNfAo KfliSu KINl PT 3 MACRO V04.00 28- JAN-82 16:49:32 PAGE 13-75 
T21 WRITE, READ EACH TRACK U/ MIXED PEAK SHIFT 


2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 


030740 

030746 

030746 

030754 

030762 

030770 


2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 


012737 000000 001420 


030776 

031002 

031004 

031010 

031012 

031016 

031016 

031024 

031032 


031036 

031042 

031046 

031052 

031056 

031062 

031064 

031072 

031076 


012737 

012737 

012737 

012737 


004737 

000405 

104401 

104000 

000137 

012737 

012737 

004737 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 


104254 

177376 

010000 

000063 


034762 

066006 

031712 

067354 

000200 

037214 


001555 

000034 

000006 

000004 

000002 

000032 

000000 

000200 


001416 

001414 

001444 

001412 


001174 

001176 


NOV #0,RNDA0 

3S: 

NOV fBUFQNE.RNBAO 

NOV #-258..RNUCO 

NOV #FMT16,RN0F0 

NOV #MH!G0,RMCS10 

; VERIFY THAT SECTOR IS NOT BAD 
JSR PC.BADSCT 

BR 4$ 

TYPE .SCTMSG 


#MIXED,$TMPO 

#128.,iTMP1 

PC.GENBUF 


; TRACK = 0, SECTOR = 0 
;8US ADDRESS 

;2 ♦ 256. WORDS x'2’S COMP) 

; 16 BIT FORMAT 

.‘WRITE HEADER AND DATA COMMAND 


.‘CALL BAD SECTOR NODULE 

;G0 TC 4$ IF NO ERROR 

.‘TYPE BAD SECTOR MESSAGE 

.‘ERROR * DEFINED BY BADSCT SUBROUTINE 

;G0 TO 26S IF ERROR 

.•STARTING ADDRESS OF PATTERN 

.‘RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 


031142 


031142 

031146 

031150 

031152 

031154 


004737 

000405 

000240 

104000 

004736 


054166 


.‘LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 


NOV #PUTINX.R2 

M0V8 #RMDC.(R2>+ 
NOVB #RMDA, <R2> ♦ 
MOVB #RMBA, (R2> ♦ 
NOVB #RMWC,(R2H 
MOVB #RM0F,(R2H 
NOVB fRMCSl , (R2)* 
NOVB #200. (R2> 


;R2 = BYTE ENTRY POSITION 


.‘TERMINATE TABLE 


.FORMAT THE DRIVE 


031076 

004737 

040360 

JSR 

PC. PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

031102 

000404 


BR 

6$ 

;G0 TO 6$ IF NO ERROR 

031104 

000240 


NOP 


.‘RETURN HERE IF ERROR 

031106 

104000 


EMT 


.-ERROR # DEFINED BY PUT SUBROUTINE 

031110 

000137 

031712 

JMP 

26$ 

.60 TO 26$ IF ERROR 

031114 



6$: 






.‘SETUP GET 

INDEX TABLE TO READ ALL REGISTERS 

031114 

004737 

040024 

JSR 

PC.GETSTS 

;G0 TO GETSTS SUBROUTINE 




.‘WAIT FOR COMMAND TO COMPLETE 


031120 

004737 

040732 

JSR 

PC.TIMOUT 

;G0 TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR FORMAT OPERATION 


031124 

004737 

040110 

JSR 

PC, GET 

031130 

000404 


BR 

7$ 

031132 

000240 


NOP 


031134 

104000 


EMT 


031136 

000137 

031712 

JMP 

26$ 


.‘VERIFY NO ERRORS DURING FORMAT 
JSR PC.DTASTS 

BR 8$ 

NOP 

EMT 

JSR FC.B(SP)* 


GO REmD REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 26S IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 8S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


CZRNFAO RM80 FCTNL PI 3 MACRO V04.00 28-JAN-82 16:49:32 P»(>E 13-7& 

T21 WRITE, READ EACH TRACK U/ MIXED PEAK SHIFT 


SEQ 0146 


2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 


2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 


2573 

2574 

2575 

W?7 


2578 

2579 

2580 


031156 

031162 

000137 

031712 

8$: 

JMP 

26$ 

;G0 TO 26$ IF ERROR 




.‘MOVE 

LOOP ADDRESSES TO NEXT 

OPERATION 

031162 

012737 

031172 001124 


MOV 

#9$,$LPERR 


031170 

000410 



BR 

10$ 

.‘SKIP TO WRITE OPERATION 




•LOOP #2 

WRITE, READ 


031172 



9$: 







.•PREPARE DEVICE 

FOR WRITE OPERATION 

031172 

004737 

034032 


JSR 

PC.TSTPRP 

15*130 

.•PREPARE DEVICE FOR TEST 

031176 

1541 y.o 



.WORD 

.‘TASK DESCRIPTOR AS FOLLOWS: 

.‘SELECT DEVICE t VERIFY DEVICE AVAILABLE 
.•CLEAR CONTROLLER l SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
.-PACK ACKNOWLEDGE IF VOLUME NOT VALID 
.‘VERIFY PACK ACKNOWLEDGE 
.‘RECALIBRATE IF , *SKI r ' OR 'VIP" IS SET 
.•VERIFY RECALIBRATION 




031200 

000404 



BR 

10$ 

;G0 TO 10$ IF NO ERROR 

031202 

000240 



NOP 


.'RETURN HERE IF ERROR 

031204 

104000 



EMT 


.•ERROR # DEFINED BY TSTPRP SUBROUTINE 

031206 

031212 

000137 

031712 

10$: 

JMP 

26$ 

;G0 TO 26$ IF ERROR 






.‘WRITE 

DATA TO 

THE DRIVE 


031212 

031212 

012737 

104260 

001416 

11$: 

MOV 

#BUF0NE*4,RMBA0 

; CHANGF BUS ADDRESS 

031220 

012737 

177400 

001414 


MOV 

#-256. .RMWCO 

.'CHANGE WORD COUNT 

031226 

012737 

000061 

001412 


MOV 

#WDJG0,RMCS10 

.‘WRITE DATA COMMAND 

031234 

012702 

001555 



MOV 

#PUTINX,R2 

.‘LOAD PUT REGISTER INDEX TABLE 

031240 

112722 




M0V8 

#RMDA.(R2)+ 


031244 

112722 

000034 



NO ¥8 

#RMDC,(R2)* 


031250 

112722 

000032 



wove 

#RM0F,(R2>* 


031254 

112722 

Ciiijl 



MOVB 

#RMBA,(R2)* 


031260 

112722 

Ciiiil 



MO VS 

#RMWC, (R2)+ 
#RMCS1,(R2)* 


031264 

112722 

liii iMa 



MOVB 


031270 

112722 

000200 



MOVB 

#200. (R2>* 

.•TERMINATE TABLE 

031274 

004737 

040360 



JSR 

PC. PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

031300 

000404 




BR 

12$ 

;G0 TO 12$ IF NO ERROR 

0313 02 

000240 




NO P 


.‘RETURN HERE IF ERROR 

031304 

104000 




EMT 


; ERROR # DEFINED BY PUT SUBROUTINE 

031306 

031312 

000137 

031712 


12$: 

JMP 

26$ 

;G0 TO 26$ IF ERROR 


.■SETUP GET INDEX TABLE TO READ ALL REGISTERS 


031312 

004737 

040024 

JSR 

PC.GETSTS 

;G0 TO GETSTS 

SUBROUTINE 



- 

.•WAIT FOR COMMAND TO COMPLETE 



031316 

004737 

040732 

JSR 

PC.TIMOUT 

;G0 TO TIMOUT 

SUBROUTINE 




;G0 READ STATUS 

FOR WRITE COMMAND 


031322 

004737 

040110 

JSR 

PC, GET 

;G0 READ REGISTERCS) WITH GET SUBROUTINE 


SEO OH 7 
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2581 

2582 

2583 

2584 


2585 

2586 


2587 

2588 


2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 


031326 

C00404 



BR 

13$ 

GO TO 13$ IF NO ERROR 1 

031330 

000240 



NOP 


RETURN HERE IF ERROR 

031332 

104000 



EMT 


ERROR 0 DEFINED BY GET SUBROUTINE 

031334 

000137 

031712 


JMP 

26$ 

GO TO 26$ IF ERROR 

031340 



13$: 







.•CHECK 

FOR ERRORS DURING WRITE OPERATION 

031340 

004737 

041126 


JSR 

PC.PRIERR 

GO CHECK FOR PRIMARY ERRORS 

031344 

000405 



BR 

14i 

GO TO 14$ IF NO ERROR 

031346 

000240 



NOP 


RETURN HERE IF ERROR 

031350 

104000 



EMT 


ERROR * DEFINED BY PR 1 ERR SUBROUTINE 

031352 

004736 



JSR 

PC.i(SP)* 

GO BACK FOR MORE ERROR CHECKS 

031354 

000137 

031712 


JMP 

26* 

GO TO 26$ IF ERROR 

031360 



14$: 




031360 

004737 

054166 


JSR 

PC.DTASTS 

GO VERIFY RESULTS OF DATA TRANSFER 

031364 

000405 



BR 

15i 

GO TO 15$ IF NO ERROR 

031366 

000240 



NOP 


RETURN HERE IF ERROR 

031370 

104000 



EMT 


ERROR » DEFINED BY DTASTS SUBROUTINE 

031372 

004736 



JSR 

pc.3(sph 

GO BACK FOR MORE ERROR CHECKS 

031374 

000137 

031712 


JMP 

26i 

GO TO 26$ IF ERROR 

031400 



15$: 




031400 

004737 

041760 


JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 

031404 

000405 



BR 

i6i 

GO TO 16$ IF NO ERROR 

031406 

000240 



NOP 


RETURN HERE IF ERROR 

031410 

104000 



EMT 


ERROR # DEFINED BY SECERR SUBROUTINE 

031412 

004736 



JSR 

pc jnsph 

GO BACK FOR MORE ERROR CHECKS 

031414 

000137 

031712 


JMP 

26$ 

GO TO 26$ IF ERROR 

031420 



16$: 







.-CHANGE 

LOOP ADDRESSES 


031420 

012737 

031430 001124 


MOV 

f17$.$LPERR 


031426 

000410 



BR 

18$ 

.•SKIP TO NEXT OPERATION 




••*************************************.************************** 




.•LOOP #3 

READ 



031430 


031430 

031434 


004737 

154130 


034032 


17 $: 

.•PREPARE DEVICE FOR READ OPERATION 


JSR 
.WORD 


PC.TSTPRP 
15*130 


031436 000404 
031440 000240 
031442 104000 
031444 000137 031712 

2602 031450 

2603 

OfJUL 

2605 031450 

2606 031450 012737 105264 


18$: 


BR 

NOP 

EMT 

JMP 


18$ 


26$ 


:R£AD DATA FROM DEVICE 

f9$: 

001416 MOV #8UFTW0+4,RMBA0 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ( VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr' OR 'W IS SET 

VERIFY RECALIBRATION 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 26$ IF ERROR 


.•CHANGE BUS ADDRESS 
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SCO 0148 


2607 031456 

2608 031464 

2609 031470 

2610 031474 

2611 031500 

2612 031504 

2613 031510 

2614 031514 

2615 031520 

2616 

2617 031524 
031530 
031532 
031534 
031536 

2618 031542 

2619 


031542 


2620 

2621 

2622 

031546 

2623 

2624 

2625 031552 
031556 
031560 
031562 
031564 

2626 031570 

2627 

2628 

2629 031570 
031574 
031576 
031600 
031602 
031604 

2630 031610 

2631 031610 
031614 
031616 
031620 
031622 
031624 

2632 031630 

2633 031630 
031634 
031636 
031640 
031642 
031644 

2634 031650 

2635 031650 
031654 
031656 
031660 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


004737 

004737 


004737 

000404 

000240 

104000 

000137 


004^37 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

104260 

105264 

000404 


000071 001412 

001555 

000006 

000032 

000034 

000004 

000002 

000000 

000200 

040360 

031712 

040024 

040732 

040110 

031712 

041126 

031712 

054166 

031712 

041760 

031712 

037462 


20 $: 


MOV 

MOV 

HOVB 

Move 

movb 

movb 

movb 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 


#RD!G0.RMCS10 
#PUTINX,R2 
#RMDA, ( R2 ) 
#RMOF , <R2) ♦ 
#RMDC,(R2>* 
#RMBA,(R2>* 
#RMWC.<R2)+ 
#RMCS1 , (R2) ♦ 
#200, (R2) 

PC,PUT 

20 $ 


26$ 


.-READ DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR Pf.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


GO READ STATUS FOR READ OPERATION 


21 $: 


JSR 

BR 

NOP 

EMT 

JMP 


PC, GET 
21$ 


26$ 


.•CHECK FOR ERRORS DURING READ 


22 $: 


23$: 


24$: 


JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

.WORD 

.WORD 

BR 


PC.PRIERR 

22 $ 


pc.a<sp>+ 

26$ 

P^DTASTS 


PC.a(SP)* 

26$ 

PC.SECERR 

24$ 


PC.a<SP>* 

26$ 

PC.CMPBUF 

8UF0NE+4 

BjjFTWO+4 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 26$ IF ERROR 


OPERATION 

;G0 CHECK FOR PRIMARY ERRORS 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROP # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 26$ IF ERROR 

GO COMPARE WRITE, READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
^STARTING ADDRESS OF READ BUFFER 
;G0 TO 25$ IF NO ERROR 


iZKWAU RNdu F C r NL PI i MACRO V04.00 28-JAN-82 16:49:32 PAGE 13-79 
T21 WRITE. READ EACH TRACK U/ MIXED PEAK SHIFT 


031662 

031664 

031666 

2636 031672 

2637 031672 

2638 031676 
26^9 031704 

2640 031706 

2641 031712 

2642 

2643 


031712 

031712 

031714 

031716 

031722 

031726 

031732 

2644 

2645 

2646 

264 7 031740 

2648 

2649 

2650 031740 
031 744 


2651 

2652 

2653 

2654 

2655 
7656 


2660 

2661 


000240 

104000 

000137 

031712 

25$: 

NOP 

EMT 

JMP 

105237 

001421 

INCB 

123737 

001421 001335 


CMPB 

101002 

000137 

030746 

26$: 

BHi 

JMP 




26$ 

RNDAO+1 

RNDAO+1 .LSTRK+1 
26$ 

3$ 


RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPBUF SUBROUTINE 

GO TO 26$ IF ERROR 


ADVANCE TO NEXT TRACK 
DONE ? 

YES!! 

TEST NEXT TRACK 


•TEST 22 


READ. WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 


TST22: 


000004 


SCOPE 

000240 


NOP 

012706 

001100 

MOV 

013700 

001276 

MOV 

013701 

001466 

MOV 

012737 

000022 001226 

MOV 


004737 034032 
154130 


.•LOOP #1 
1 $: 

; PREPARE DEVICE 
JSR 
.WORD 


.-SCOPE CALL 
.-START OF TEST 

fSTACK.SP .-INITIALIZE STACK POINTER 

5BASE.R0 ;R0 = UNIBUS ADDRESS 

TST0UE.R1 ;<R1> = DEVICE BEING TESTED 

#22.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


FORMAT. READ OFFSET, WRITE CHECK OFFSET IN BOTH DIRECTIONS 


FOR FORMAT OPERATION 


PC.TSTPRP 
154130 


031746 

000404 



BR 

2$ 

031750 

000240 



NOP 


031752 

104000 



EMT 


031754 

000137 

033074 


JMP 

28$ 





.-LOAD PARAMETERS AND GENERATE 1 

031 760 




2$: 


031760 

012737 

001057 

001446 

MOV 

#559. .RMDCO 

031766 

012737 

001000 

001420 

MOV 

#TA2,RM0A0 

031774 

012737 

104254 

001416 

MOV 

fBUFQNE.RMBAO 

032002 

012737 

176774 

001414 

MOV 

#-258.*2,RMWCO 

032010 

012737 

010000 

001444 

MOV 

#FNT16,RM0F0 

032016 

012737 

000063 

001412 

MOV 

#WH!G0,RMCS10 





.-VERIFY THAT 

SECTOR IS NOT BAD 

032024 

004737 

034762 


JSR 

PC .BADSCT 

032030 

000405 



BR 

3$ 

032032 

104401 

066006 


TYPE 

.SCTMSG 

032036 

104000 



EMT 


032040 

000137 

033074 


JMP 

28$ 

032044 




3$: 


032044 

012737 

067456 

0011 >4 

MOV 

#ZEROS.$TMPO 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR *T»IP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 


CYLINDER = 559. 

TRACK = 2, SECTOR = 0 
BUFFER ADDRESS 

WORD COUNT FOR 2 SECTORS (2*S COMP) 
16 BIT NODE 
WRITE HEADER 


;CALL BAD SECTOR MODULE 

;G0 TO 3$ IF NO ERROR 

.-TYPE BAD SECTOR MESSAGE 

.-ERROR # DEFINED BY BADSCT SUBROUTINE 

.-GO TO 28$ IF ERROR 


.-DATA PATTERN 


SEu 


SEO 0150 
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032052 

032060 


032064 

032070 

032074 

032100 

032104 

032110 

032114 

032120 

032124 

032124 

032130 

032132 

032134 

032136 

032142 


2690 
269 ! 
2692 
?693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

270 1 

2702 


012737 

004737 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


000001 001176 
037214 


001555 

0' , 0034 

000006 

000004 

000002 

000032 

000000 

000200 

040360 


033074 


#1,$TMP1 

PC.GENBUF 


; TO GENERATE BUFFER FOR FORMAT 


032142 004737 040024 


032146 004737 040732 


032152 

032156 

032160 

032162 

032164 

032170 


032170 

032174 

032176 

032200 

032202 

032204 


004737 

000404 

000240 

104000 

000137 


004737 

000405 

000240 

104000 

004736 

000137 


040110 


033074 


054166 


033074 


032210 

032210 


032216 

032224 


032232 

032232 

032236 


012737 

012737 


004737 

154130 


;L0AD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION 


MOV #PUTINX,R2 

HOVB #RMDC. <R2>* 

M0V8 #RMDA,(R2>* 

M0V8 #RMBA,<R2>* 

MOVB #RMWC.<R2>* 

M0V8 #RM0F. <R2) ♦ 

MOVB #RMCS1 , (R2)+ 
MOVB #200, (R2) 

JSR PC, PUT 

BR 5$ 


;BYTE ENTRY TA8LE 


; TABLE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 28S IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC,TIN0UT 


;G0 TO TIMOUT SUBROUTINE 


STATUS 

FOR FORMAT OPERATION 

JSR 

PC, GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

BR 

6$ 

GO TO 6$ IF NO ERROR ! 

NOP 


RETURN HERE IF ERROR 

EMT 


ERROR # DEFINED BY GET SUBROUTINE 

JMP 

28$ 

GO TO 28$ IF ERROR ^ 

NO ERROR DURING FORMAT 

I 

JSR 

PC.DTASTS 

GO VERIFY RESULTS OF DATA TRANSFER 

BR 

7% 

GO TO 7$ IF NO ERROR 

NOP 


RETURN HERE IF ERROR 

EMT 


ERROR # DEFINED BY DTASTS SUBROUTINE 

JSR 

PC.aCSP)* 

GO BACK FOR MORE ERROR CHECKS 

JMP 

28$ 

GO TO 28$ IF ERROR 


012737 032232 001124 


177000 001414 
104Z54 001416 


034032 


•MOV LOOP ADDRESSES TO NEXT OPERATION 

7$. 

MOV #8$,SLPERR .-ERROR LOOP ADDRESS 

.•LOCATE BUFFER ADDRESS AND WORD COUNT 

MOV #-256.*2,RMWC0 ;TWO SECTORS 

MOV I8UF0NE .RHBAO .-BUFFER ADDRESS 

• *************** ************************************** 
•LOOP 2 READ AND WRITE CHECK IN OFFSET MODE 
§S: 

.•PREPARE DEVICE FOR READ OFFSET OPEATION 


JSR 

.WORD 


PC-TSTPRP 

154130 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER ft SELECT DEVICE 
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032240 

000404 

BR 

9$ 

032242 

000240 

NOP 


032244 

104000 

EMT 


032246 

000137 033074 

JMP 

28$ 


2703 032252 

2704 032252 

2705 

2706 032252 

2707 032256 

2708 032262 

2709 032266 

2710 032272 

2711 032276 

2712 032302 

2713 

2714 032306 
032312 
032314 
032316 
032320 

2715 032324 

2716 032332 

2717 032336 

2718 032342 

2719 

2720 032346 
032352 
032354 
032356 
032360 

2721 032364 


032364 

2724 

2725 032370 

2726 032376 

2727 032402 

2728 032406 

2729 

2730 032412 
032416 
032420 
032422 
032424 

2731 032430 


012702 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 

012737 

012702 

112722 

112722 

004737 

000404 

000240 

104000 

000137 


001555 

000006 

000034 

000032 

000004 

000002 

000200 

040360 


033074 

000015 

001555 

000000 

000200 

040360 


033074 


012737 

012702 

112722 

112712 

004737 

000404 

000240 

104000 

000137 


9$: 

10 $: 

.-READ OFFSET 
MOV 
M0V8 
M0V8 
M0V8 
MOVB 

Move 

Move 


001412 11$: 


APUTINX.R2 
#RMDA.<R2>* 
#RMDC,(R2>+ 
*RM0F,(R2H 
#RMBA, (R2> ♦ 
#RMWC,<R2)* 
0200. 

PC, PUT 

ii i 


28$ 

^OFFSET IG0.RMC2 
0PUT1NX.R2 
fRMCSI ,(R2)+ 
0200. (R 2)* 


004737 040732 


000071 

001555 

000000 

000200 

040360 


033074 


001412 


032430 004737 040024 


032434 004737 040732 


PC.PUT 

124 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

MOV #RD!60,RMCS10 

MOV 0PUTINX.R2 

M0V8 #RMC$1 . (R2)+ 

MOVB 0200, (W 

JSR PC.PUT 

8R 13$ 


.•SETUP GET INDEX TABLE TO READ 
JSR PC.GETSTS 

;WAIT FOR COMMAND TO COMPLETE 
vSR PC.TIMOUT 


SEO 0151 


VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR '^IP** IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 


.-LOAD THE TABLE 


.-TABLE TERMINATOR 

.GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

.-GO TO 11$ IF NO ERROR 

.-RETURN HERE IF ERROR 

.-ERROR 0 DEFINED BY PUT SUBROUTINE 

;G0 TO 28$ IF ERROR 

0 .'OFFSET COMMAND 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


;G0 TO TIMOUT SUBROUTINE 

.’READ DATA COMMANO 
.‘TABLE INDFX 

.‘TABLE TERMINATOR 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 13$ IF NO ERROR 

; RETURN HERE IF ERROR 

.ERROR 0 DEFINED BY PUT SUBROUTINE 

;G0 TO 28$ IF ERROR 


ALL REGISTERS 
;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 
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2736 

2737 

2738 032440 
032444 
032446 
032450 
032452 

2739 

2740 

2741 032456 

2742 032456 
032462 
032464 
032466 
032470 
032472 

2743 032476 

2744 032476 
032502 
032504 
032506 
032510 
032512 

2745 032516 

2746 032516 
032522 
032524 
032526 
032530 
032532 

2747 032536 

2748 

2749 

2750 032536 

2751 032544 

2752 

2753 

2754 

2755 032546 

2756 

2757 

2758 032546 
032552 


004737 040110 
000404 
000240 
104000 

000137 033074 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


;READ STATUS FOR READ OFFSET OPERATION 


JSR 

BR 

NOP 

EMT 

JMP 


PC.GET 
14i 


281 


: CHECK ERROR DURING READ OFFSET 

U$: 


041126 

JSR 

PC, PRIERR 

BR 

15$ 


NOP 



EMT 



JSR 

PC.i(SP>* 

033074 

JMP 

28i 


15$: 


054166 

JSR 

PC. DTASTS 

BR 

16$ 


NOP 



cMT 



JSR 

PC.a(SP)* 

033074 

JMP 

28i 


16$: 


000410 


041760 

JSR 

BR 

PC, SECERR 
17* 


NOP 



EMT 



JSR 

pc.a(sp)* 

033074 

JMP 

28$ 


17$: 



.’CHANGE LOOP ADDRESS 

032546 001124 

MOV 

#18$,$LPERR 

BR 

19$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 28 $ IF ERROR 


GO CHECK FOR PRIMARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 


;T0 NEXT OPERATION 

• ■«*************************mt*»*m*****t***m*********m«** 

•LOOP 3 WRITE CHECK OFFSET 
18 $: 


004737 034032 
154130 


; PREPARE DEVICE 
JSR 
.WORD 


FOR READ OPERATION 


PC.TSTPRP 
154130 


032554 000404 
032556 000240 
032560 104000 
03256<r 000137 033074 


27 59 032566 

2760 

2761 


19$: 


BR 

NOP 

EMT 

JMP 


19$ 


28$ 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI" OR ■flP*’ IS SET 

VERIFY RECALIBRATION 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 


WRITE CHECK DATA IN OFFSET MODE 
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20 $: 


SEO 0153 


2770 


2772 

2773 


2779 


2782 

2783 

2784 

2785 


2790 


2793 

2794 

2795 

2796 

2797 

2798 


032566 

032566 

012702 

001555 

032572 

112722 

000006 

032576 

112722 

000032 

032602 

112722 

000034 

032606 

112722 

000004 

032612 

112722 

OOOOC2 

032616 

112712 

000200 

032622 

004737 

040360 

032626 

000404 


032630 

000240 


032632 

104000 


032634 

000137 

033074 

032640 

032640 

012737 

000015 

032646 

012702 

001555 

032652 

112722 

000000 

032656 

112712 

000200 

032662 

004737 

040360 

032666 

000404 


032670 

000240 


032672 

104000 


032674 

032700 

000137 

033074 

032700 

004737 

040732 

032704 

012737 

000051 

032712 

012702 

001555 

032716 

112722 

000000 

032722 

112712 

000200 

032726 

004737 

040360 

032732 

000404 


032734 

000240 


032736 

104000 


032740 

032744 

000137 

033074 

032744 

004737 

040024 

032750 

004737 

040732 

032754 

004737 

040110 

032760 

000404 


032762 

000240 


032764 

104000 


032766 

000137 

033074 


MOV 

#PUTINX,R2 

MOVB 

#RMDA.(R2)+ 

MOVB 

#RMOF , (R2) ♦ 

MOVB 

#RMDC.(R2>* 

MOVB 

#RMBA,<R2>* 

MOVB 

#RMWC,(R2>* 

MOVB 

#200. (R2> 

JSR 

PC.PUT 

BR 

21* 

NOP 


EMT 


JMP 

28$ 


.‘TABLE TERMINATOR 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 21$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY PUT SUBROUTINE 

;G0 TO 28$ IF ERROR 


; SETUP OFFSET MODE FIRST 
$ 1 $: 

MOV 
MOV 
MOVB 
MOVB 


♦OFFSET 1G0.RMCS10 
#PUTINX.R2 
#RMCS1 , (R2>* 

#200. (R2> 


.•OUTPUT BUFFER 


22 $: 


JSR 

8R 

NOP 

EMT 

JMP 


PC.PUT 

22 * 


28$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


; EXECUTE WRITE CHECK DATA COMMAND 


23$: 


MOV 

MOV 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 


fWCD.'GO.RMCSIO 
#PUTINX,R2 
#RMCS1 , (R2)* 
#200. (R2) 

PC.PUT 
2 3* 


28$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 


SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS .‘GO TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 


;G0 TO TIMOUT SUBROUTINE 


READ STATUS FOR WRITE CHECK OFFSET OPERATION 


JSR 

PC.GET 

BR 

24* 

NOP 


EMT 


JMP 

28$ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 24$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 28$ IF ERROR 
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2800 032772 




24$: 


2801 






2802 




.•CHECK 

ERROR 

2803 032772 

004737 

041126 



JSR 

032776 

000405 




BS 

033000 

000240 




NOP 

033002 

104000 




EMT 

033004 

004736 




JSR 

033006 

000137 

033074 



JMP 

2804 033012 




25$: 


2805 033012 

004737 

054166 



JSR 

033016 

000405 




BR 

033020 

000240 




NOP 

033022 

104000 




EMT 

033024 

004736 




JSR 

033026 

000137 

033074 



JMP 

2806 033032 




26$: 


2807 033032 

004737 

041760 



JSR 

033036 

000405 




BR 

033040 

000240 




NOP 

033042 

104000 




EMT 

033044 

004736 




JSR 

033046 

000137 

033074 



JMP 

2808 033052 




27$: 


2809 033052 

032737 

000200 

001444 


BIT 

2810 033060 

001005 




BNE 

2811 033062 

052737 

000200 

001444 


BIS 

2812 033070 

000137 

032210 



JMP 

2813 033074 




28$: 



DURING WRITE CHECK OFFSET OPERATION 


PC.PRIERR 
25§ 


PC,8(SP)t 

28$ 

PC.DTASTS 

26§ 


pc.acsp)* 

28$ 

PC.SECERR 

27* 


pc.acsp)* 

28$ 

fOFD.RMOFO 

28$ 

#OFD,RMOFO 

7$ 


GO CHECK FOR PRIMARY ERRORS 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 26$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 27$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

IN FORWARD DIRECTION OF OFFSET ? 

BRANCH IF SO 

SET TO FORWARD DIRECTION 

CHANGE OFFSET DIRECTION TEST AGAIN 


2814 

2815 


*TEST 23 


FORMAT FE CYLINDERS 


2816 

2817 


2821 


2825 

2826 


033074 




TST23: 




033074 

000004 




SCOPE 


• 

0 

033076 

000240 




NOP 


• 

0 

033100 

012706 

001100 



MOV 

f STACK. SP 

• 

033104 

013700 

001276 



MOV 

SBASE.RO 

;l 

033110 

013701 

001466 



MOV 

TSTQUE.R1 

9 

033114 

012737 

000001 

001206 


mv 

#1 .STINES 

• 

9 

033122 

012737 

000023 

001226 


MOV 

#23,$TESTN 

• 





.•SETUP 

PARAMETERS FOR GENERATING 

033130 

012737 

001057 

001446 


MOV 

#559. .RNDCO 

; 

033136 

012737 

001000 

001420 


MOV 

#TA2,RMDA0 

• 

9 

033144 




IS: 




033144 

012737 

011000 

001444 


MOV 

#FMT16!SSEI.RM0F0 

033152 

012737 

177776 

001414 


MOV 

#-2,RNWC0 

0 

0331 6C 

012737 

104254 

001416 


MOV 

fBUFONE.RNBAO 

; 

033166 

012737 

000062 

001412 


MOV 

#WH.RMCS10 

; 





.•VERIFY 

THAT 

SECTOR IS NOT BAD 


033174 

004737 

034762 



JSR 

PC.BADSCT 

• 

033200 

000405 




BR 

2$ 

; 

033202 

104401 

066006 



TYPE 

.SCTMSG 

9 

033206 

104000 




EMT 


; 

033210 

000137 

033522 



JMP 

12$ 

J 


- DEVICE BEING TESTED 


;16 BIT FORMAT WITH SSEI SET 
2 WORDS (2’S COMP) 

DATA BUFFER ADDRESS 
WRITE HEADER AND DATA 


SEQ 01 54 
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2827 

033214 




2$: 


RMDC0.A560. 


2828 

033214 

023727 

001446 

001060 


CMP 

IS DESIRED CYLINDER. OUTSIDE FE CYLINDERS 

2829 

033222 

101402 




BLOS 

3$ • 

NO ! ! 

2830 

033224 

000137 

033522 



JMP 

12$ ; 

YES, EXIT TEST 

2831 

033230 




3$: 




2832 

033230 

004737 

037214 



JSR 

PC.GENBUF 

GO GENERATE DATA BUFFER 

2833 

033234 




4$: 




2834 

033234 

005737 

001514 



TST 

SSFEN8 

TEST SSF ENABLE FOR 1ST HEADER WORD 

2835 

033240 

001403 




BEQ 

5$ 

NO. DO NOT SET ,, SSF ,, 

2836 

033242 

052737 

020000 

104254 


BIS 

ASSF.BUFONE 

YES. SET SSF BIT 

2837 

033250 




5$: 




2838 









2839 





.•PREPARE DEVICE 

FOR DATA TRANSFER 

2840 

033250 

004737 

034032 



JSR 

PC. TSTPRP 

PREPARE DEVICE FOR TEST 

033254 

154130 




.WORD 

154130 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE ft VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER 8 SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 







033257 

000404 




BR 

6$ 

GO TO 6$ IF NO ERROR 


03326*. 

000240 




NOP 


RETURN HERE IF ERROR 


033262 

104000 




EMT 


ERROR # DEFINED BY TSTPRP SUBROUTINE 


033264 

000137 

033522 



JMP 

12$ 

GO TO 12$ IF ERROR 

2841 









2842 





.SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

2843 

033270 




6S: 




2844 

033270 

012737 

000063 

001412 


MOV 

AWHiGO.RMCSIO 

WRITE HEADER AND DATA 

2845 

G33276 

012702 

001555 



MOV 

APUTINX.R2 

WRITE REGISTER INDEX TABLE 

2846 

033302 

112722 

000006 



MOVB 

#RMDA, (R2)+ 


2847 

033306 

112722 

000034 



MOVS 

#RMDC,(R2)+ 


2848 

033312 

112722 

000032 



MOVB 

#RM0F,(R2H 


2349 

033316 

112722 

000002 



MOVB 

#RMWC, (R2)+ 


2850 

033322 

112722 

000004 



MOVB 

#RMBA.(R2)+ 
#RNC5i . (R2)+ 


2851 

033326 

112722 

000000 



MOVB 


2852 

033332 

112722 

000200 



MOVB 

#200.(R2)+ 


2853 









2854 

033336 

004737 

040360 



JSR 

PC. PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 


033342 

000404 




BR 

7$ 

GO TO 7$ IF NO ERROR 


033344 

000240 




NOP 


RETURN HERE IF ERROR 


033346 

104000 




EMT 


ERROR # DEFINED BY PUT SUBROUTINE 


033350 

000137 

033522 



JMP 

12$ 

GO TO 12$ IF ERROR 

2855 

033354 




7$: 




2856 









2857 





.•SETUP GET INDEX TABLE fO READ ALL REGISTERS 


033354 

004737 

040024 



JSR 

PC.GETSTS 

;G0 TO GETSTS SUBROUTINE 

2858 









2859 





.-WAIT 

FOR COMMAND TO COMPLETE 



033360 

004737 

040732 



JSR 

PC.TIMOUT 

;G0 TO TIMOUT SUBROUTINE 

2860 









2861 

033364 

004737 

040110 



JSR 

PC. GET 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 


033370 

000404 




BR 

8$ 

;G0 TO 8$ IF NO ERROR 


033372 

000240 




NOP 


RE TURN HERE IF ERROR 


033374 

104000 




EMT 


ERROR # DEFINED BY GET SUBROUTINE 


033376 

000137 

033522 



JMP 

12$ 

;G0 TO 12$ IF ERROR 
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2862 

2863 

2864 

033402 



8$: 





.•VERIFY RESULTS 

OF WRITE COMMAND 

2865 

033402 

004737 

041126 

JSR 

PC, PRIERR 

033406 

000405 


BR 

9$ 


033410 

000240 


NOP 



033412 

104000 


EMT 

PC.B(SP)* 

12i 


033414 

004736 


JSR 


033416 

000137 

033522 

JMP 

2866 

033422 



9$: 

PC.SECERR 

loi 

2867 

033422 

004737 

041760 

JSR 


033426 

000405 


BR 


033430 

000240 


NOP 



033432 

104000 


EMT 

pc.acsp)* 

i2i 


033434 

004736 


JSR 


033436 

000137 

033522 

JMP 


2868 033442 

2869 

2870 

2871 033442 

2872 033446 

2873 033454 

2874 

2875 033456 

2876 033462 

2877 033466 

2878 033474 

2879 

2880 033476 

2881 033502 

2882 033506 

2883 033514 

2884 033516 

2885 

2886 033522 


10 $: 


60 CHECK FOR PRIMARY ERRORS 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 12$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 12$ IF ERROR 


005237 

123727 

101420 

105037 

105237 

123737 

101410 

105037 

005237 

023727 

101002 

000137 


001420 

001420 


001420 

001421 

001421 


001421 

001446 

001446 

033144 


000037 


001335 


001060 


.•INCREMENT ADDRESS 

.•ADVANCE SECTOR COUNT 


INC 

RMDAO 


CMP8 

RMDAO, #31 . 

.•DONE ALL SECTORS ? 


BLOS 

11$ 

;N0 ! ! 


CLRB 

RMDAO 

.•START AT SECTOR 0 AND 


INCB 

RMDAO+1 

.•ADVANCE TO NEXT TRACK. 


CMP8 

RMDAO+1 .LSTRK+1 

.•DONE WITH LAST TRACK ? 


ELOS 

11$ 

;N0 i! 


CLRB 

RMDA0+1 

.•START WITH TRACK 0 AND 


INC 

RMDCO 

; ADVANCE TO NEXT CYLINDER. 


CMP 

RMDC0.#560. 

.•DONE WITH LAST CYLINDER ? 


BHI 

12$ 

; YES !! 

11$: 

12$: 

JMP 

1$ 

;60 DO TEST A6AIN 


SEQ C 



jEO 0157 
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1 

2 

3 

4 

5 

6 

7 

8 


.SB T TL END OF SUB-PASS ROUTINE 

THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
TO TEST. EXIT IS MADE TO ’SEOP’ ROUTINE. OTHERWISE, RETURN 
IS MADE TO 'SHUT' ROUTINE. 


9 033522 

000004 


10 033524 

000240 


11 033526 

013700 

001466 

12 033532 

062700 

000002 

13 033536 

010037 

001466 

14 033542 

005710 


15 033544 

001402 


14 033546 

000137 

033776 

17 033552 

012737 

001470 

18 



IP 



20 




SEOSP: 


001466 1$: 


SCOPE 

NOP 

MOV 

ADD 

MOV 

TST 

BEQ 

JMP 

MOV 


TSTOUE.RO 
#2.R 0 
RO.TSTQ'JE 
(R0> 

IS 
SHUT 

#TST0UE*2,TSTQUE 


;GET POINTER TO TSTOUE 
.•ADJUST POINTER TO NEXT DEVICE 
.-SAVE POINTER TO TSTOUE 
;ANY MORE DEVICES FOR TEST ? 

* BR I F NO 

•YES, JUMP TO 'SHUT' ROUTINE 

; INITIALIZE POINTER TO FIRST DEVICE 
.-TEST QUE TABLE 


IN 


.SBTTL END OF PASS ROUTINE 


033560 



SEOP: 


033560 

000240 


NOP 


033562 

005037 

001116 

CLR 

STSTNM 

033566 

005037 

001206 

CLR 

STIMES 

033572 

005237 

001230 

INC 

SPASS 

033576 

042737 

100000 001230 

BIC 

#100000, SPASS 

033604 

005327 


DEC 

(PC)* 

033606 



SEOPCT: .WORD 

1 

033610 

003066 


BGT 

SDOAGN 

033612 

012737 


MOV 

(PC)+,i(PC)* 

033614 

Ml 


SENDCT: .WORD 

1 

033616 

033606 


SEOPCT 


033620 

104401 

033626 

TYPE 

,65S 

033624 

000407 


BR 

64S 




;;65S: .ASCIZ 

<12><15>/END 

033644 



64S: 


033644 

013746 

001230 

MOV 

SPASS, -(SP) 

033650 

104405 


TYPDS 


033652 

005737 

001126 

TST 

SERTTL 

033656 

001431 


BEQ 

SGT42P 

033660 

104401 

033666 

TYPE 

,67S 

033664 

000421 


BR 

66$ 




;;67S: .ASCIZ 

/ TOTAL ERRO 

033730 



66S: 


033730 

013746 

0^1126 

MOV 

SERTTL, -(SP) 

033734 

104405 


TYPDS 


033736 

005037 

001126 

CLR 

SERTTL 


.*******************************•••••••*••**•*•*••••••*•••***•** 

•INCREMENT THE PASS NUMBER (SPASS) 

•TYPE ‘'END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 
•WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN’T jump TO SHUT 


.-.-ZERO THE TEST NUMBER 
;;ZERO THE NUMBER OF ITERATIONS 
.-.-INCREMENT THE PASS NUMBER 
; .'DON’T ALLOW A NEG. NUMBER 
.-.'LOOP? 

• *VES 

••RESTORE COUNTER 


;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


SAVE SPASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
NCE LAST REPORT / 

SAVE SERTTL FOR TYPEOUT 
TOTAL NUMBER OF ERRORS 
GO TYPE— DECIMAL ASCII WITH SIGN 
CLEAR ERROR TOTAL 



SEQ 0158 


; ; TYPE CARRIAGE RETURN, LINE FEED 
; ;GET MONITOR ADDRESS 
; .-BRANCH IF NO MONITOR 
;; CLEAR THE WORLD 
; ; GO TO MONITOR 
; ; SAVE ROOM 

• - FOB 


.-.•RETURN 

;;NULL CHARACTER STRING 


WAS CONTROL C FLAGGED ? 

8R IF YES 

CONTINUE 

ANY MONITOR PRESENT ? 
8R IF YES 
GO TO START 

FUDGE NO DRIVES IN MAP 
RETURN TO SEOP 
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SEO 0159 


2 

3 

4 

5 

6 

7 

8 
Q 

10 

11 

12 

13 

14 

15 

16 


•S8TTL TEST PREPARATION MODULE 

THIS MODULE PREPARES THE SUBSYSTEM FOR THE FXECUTION OF A TEST. 
REPORTING AN ERROR 10 THE USER IF AN ERROR IS DETECTED. THE USER 
SPECIFIES TASKS TO BE PERFORMED. WHICH THE MODULE EXECUTES 
USING SUBROUTINES. 


CALL: 


JSR 

.WORD 

BR 

NOP 

ERROR 


PC.TSTPRP 

NNNNNN 

77 


TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY MODULE 


37 

38 034032 

39 

40 

41 034032 

42 034040 

43 034044 

44 034050 

45 

46 034054 

47 034060 

48 034064 

49 034066 

50 034070 

51 034072 

52 034076 

53 034104 

54 

55 034110 

56 

57 


TASK/VERIFY DESCRIPTOR 
BIT 15 = 1 


17 

18 

BIT 

14 

= 1 

CLEAR CONTROLLER AND SELECT DEVICE 

19 

BIT 

13 


(RESERVED FOR DRIVE CLEAR) 

20 

BIT 

12 

= 1 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

21 

— ■ 

■ MW 

.... 


22 

BIT 

11 

= 1 

RECALIBRATE IF POSITIONING IN PROGRESS 

23 

BIT 

10 

= 1 

RECALIBRATE DRIVE 

24 

BIT 

9 



25 

.... 

■ MMB 

■ mm m 


26 

BIT 

8 



27 

BIT 

7 



28 

BIT 

6 

= 1 

VERIFY CONTROLLER CLEAR OPERATION 

29 


BMM« 

.... 


30 

BIT 

5 


(RESERVED FOR DRIVE CLEAR) 

31 

BIT 

4 

= 1 

VERIFY PACK ACKNOWLEDGE 

32 

BIT 

3 

= 1 

VERIFY RECALIBRATION 

33 

.... 


.... 


34 

BIT 2 



35 

BIT 

1 



36 

BIT 

0 




017637 

062716 

105076 

162716 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 


000000 034756 
000006 
OOOOOC 
000004 

040024 

040110 


000004 

034070 000000 
034746 

013737 001400 034760 


TSTPRP: 

.'STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 
NOV a(SP).39$ .-STORE DESCRIPTOR 

ADD #6. CSP) .‘MOVE SP TO USERS ERROR CALL 

CLRB a( SP) .‘CLEAR ERROR CALL 

SUB #4, CSP) .‘MOVE SP TO NO ERROR RETURN 

JSR PC.GETSTS .‘SETUP TO READ ALL REGISTERS 

JSR PC. GET .-GET RMER2 

BR 2$ ;BR IF NO ERROR DETECTED 

BR 1$ .‘GET OVER ERROR NUMBER 

.WORD 0 .‘ERROR DEFINED BY GET SUBROUTINE 

1$: ADD J4.CSP) ;XFER ERROR TO USER AND 

NOVB 1$-2.»(SP) .‘GET ERROR NUMBER. 

JMP 37$ 

2$: NOV RMER2I.40S .‘GET RMER2 AND SAVE FOR LATER 
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SEQ 0160 


53 





.•SELECT 

DEVICE 

AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 

59 

034116 

005737 

034756 



TST 

39$ 

.SELECT DEVICE?/ 

60 

61 

62 

034122 

100014 




BPL 

4$ 

; NO ! ! 

034124 

004737 

046336 



JSR 

PC.DEVSEL 

;G0 SELECT DEVICE 

63 

034130 

000411 




BR 

4$ 

;N0 ERROR - CONTINUE 

64 

034132 

000401 




BR 

3$ 


65 

034134 

000000 




.WORD 

0 

.'ERROR NUMBER FROM DEVSEL 

66 

034136 

062716 

000004 


3S: 

ADD 

#4,(SP) 

.•TRANSFER ERROR TO USER 

67 

034142 

113776 

034134 

000000 


MOVB 

3$-2.a(SP) 


68 

69 

034150 

000137 

034746 



JMP 

37$ 


70 

71 





; ; ***** 
.•CLEAR 

CONTROLLER IF BIT 14 

IS SET IN TASK 

72 

034154 




4$: 




73 

034154 

032737 

040000 

034756 


BIT 

#8IT14,39$ 

.'CLEAR CONTROLLER?? 

74 

75 

76 

034162 

001451 




BEQ 

13$ 

;N0! ! 

034164 

004737 

050030 



JSR 

PC.CNTCLR 

;G0 CLEAR CONTROLLER 

77 

034170 

000411 




BR 

7$ 

.•CONTINUE - NO ERROR 

78 

034172 

000401 




BR 

6$ 


79 

034174 

000000 



5$: 

.WORD 

0 

.•ERROR NUMBER FROM CNTCLR 

80 

034176 

062716 

000004 


6$: 

ADD 

#4 . (SP) 

.•TRANSFER ERROR TO USER 

81 

034202 

113776 

034174 

000000 


H0V8 

SS.atSP) 


82 

83 

84 

034210 

000137 

034746 



JMP 

37i 






; ; ******************************************1 ******************** 

85 





; VERIFY 

CONTROLLER CLEAR IF 

BIT6 SET IN TASK 

86 

034214 




H: 




87 

034214 

032737 

000100 

034756 


BIT 

#81 T 6, 39$ 

.•VERIFY?? 

88 

89 

90 

034222 

001431 




BEQ 

13$ 

;NOJ ! 

034224 

004737 

040110 



JSR 

PC. GET 

;G0 GET STATUS 

91 

034230 

000411 




BR 

10$ 

;N0 ERROR GETTING STATUS 

92 

034232 

000401 




BR 

9$ 


93 

034234 

000000 



8$: 

.WORD 

0 

.•ERROR FRO*' GETTING STATUS 

94 

034236 

062716 

000004 


9$: 

ADD 

#4,(SP) 

.‘TRANSFER ERROR TO USER 

95 

034242 

113776 

034234 

000000 


MV8 

8$.a(SP) 


96 

97 

98 

034250 

000137 

034746 



jmp 

37i 


034254 

004737 

050146 


10$: 

JSR 

PC.CLRSTS 

;G0 VERIFY STATUS CLEAR 

99 

034260 

000412 




BR 

13i 

;N0 ERROR IN CLEAR 

100 

034262 

000401 




BR 

12$ 


101 

034264 

OOQOOO 

005726 



11$: 

.WORD 

0 

.•ERROR IN STATUS CLEAR 

102 

034266 



12$: 

TST 

(SP) + 

.•STRIP RETURN ADDRESS TO 

103 

034270 

062716 

000004 



ADD 

#4. ISP) 

.-SUBROUTINE AND TRANSFER 

104 

034274 

113776 

034264 

000000 


MOVB 

ns.acsp) 

.•ERROR TO USER 

105 

034302 

000137 

034746 



JAP 

37$ 


106 









107 

108 





•EXECUTE PACK 

ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 

109 





;NOT VALID 



110 

034306 




13$: 




111 

034306 

032737 

010000 

034756 


BIT 

#8IT12,39$ 

.-PACK ACKNOWLEDGE?? 

112 

034314 

001501 




BEQ 

25$ 

;N0! ! 

113 









114 

034316 

004737 

040110 



JSR 

PC, GET 
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SEO 0161 


121 


124 


131 


135 

136 

137 

138 

139 


142 


141 


150 

151 


159 

160 
161 
162 
163 


1 69 


034322 

000411 




BR 

16* 

;N0 ERROR GETTING RNDS 

034324 

000401 




8R 

15* 


034326 

000000 



14*: 

.WORD 

0 


034330 

062716 

000004 


15*: 

ADD 

#4, (SP) 

.•TRANSFER ERROR TO USER 

034334 

113776 

034326 

000000 


wove 

i4*,a<sp> 


034342 

000137 

034746 



JMP 

37* 


034346 

032737 

000100 

001350 

16*: 

BIT 

fVV.RNDSI 

;IS VOLUME VALID?? 

034354 

001061 




BNE 

25* 

; YES! ! 

034356 

012737 

000C23 

001412 


NOV 

#PAKACK 1G0.RHCS10 .-LOAD PACK ACK COMMAND 

034364 

112737 

000000 

001555 


M0V8 

#RMCS1 .PUTINX 

.•SETUP REGISTER INDEX TABLE 

034372 

112737 

000200 

001556 


novb 

#200,PUTINX*1 


034400 

004737 

040360 



JSR 

PC. PUT 

;G0 WRITE COMMAND 

034404 

000410 




BR 

19$ 

;N0 ERROR LOADING REGISTER 

034406 

000401 




BR 

18* 


034410 

000000 



17*: 

.WORD 

0 

.-ERROR FROM PUT SUB 

034412 

062716 

000004 


18*: 

ADD 

#4.(SP> 

.•TRANSFER ERROR TO USER 

034416 

113776 

034410 

000000 


wove 

i7i,a<sp> 


034424 

000550 




BR 

37* 


034426 

004737 

040732 


19*: 

JSR 

PC.TINOUT 

.•WAIT FOR COMMAND TO COMPLETE 





.•VERIFY 

PACK ACKNOWLEDGE IF #8IT4 SET IN TASK 

034432 

032737 

000020 

034756 


BIT 

#91 T4.39* 

.-VERIFY PACK ACKNOWLEDGE?? 

034440 

001427 




BEQ 

25* 

;N0!! 

034442 

004737 

040110 



JSR 

PC.GET 

;G0 GET STATUS 

034446 

000410 




BR 

22$ 

;N0 ERROR GETTING STATUS 

034450 

000401 




BR 

21* 


034452 

000000 



20*: 

.WORD 

0 

.•ERROR FROM GET SUB 

034454 

062716 

000004 


21*: 

ADD 

#4, (SP) 

; TRANSFER ERROR TO USER 

034460 

113776 

034452 

000000 


NOVB 

20*.a(SP> 


034466 

000527 




BR 

37* 


034470 

004737 

051026 


22* : 

JSR 

PC.ACKSTS 

;G0 CHECK ACKNOWLEDGE 

034474 

000411 




8R 

25$ 

;N0 ERROR 

0344 76 

000401 




SR 

24* 


034500 

000000 



23*: 

.WORD 

0 

.•PACK ACKNOWLEDGE ERROR 

034502 

005726 



24*: 

TST 

(SP)+ 

;STRIP RETURN TO SUB A NO 

034504 

062716 

000004 



ADD 

#4.(5P) 

.•TRANSFER ERROR TO USER 

034510 

113776 

034500 

000000 


NOVB 

23*.a<SP> 


034516 

000513 




BR 

37* 



RECALIBRATE DRIVE IF 8IT 11 IS SET IN TASK AND '■SKI'* IS SET 
OR 'VIP” IS ACTIVE. 


034520 

034520 

032737 

002000 

034756 

55*: 

Aunn 1 1 

BIT 

034526 

001027 


034756 


BNE 

034530 

032737 

004000 


BIT 

034536 

001505 




BEQ 

034540 

004737 

040110 



JSR 

034544 

000410 




BR 


#8IT10,39* 

29S 

#81 Til, 39$ 
38S 

PC.GET 

28§ 


.-RECALIBRATE DRIVE ? 
•VES* 1 

•RECALIBRATE?? 

;N0! ! 

;G0 GET RNDS 

;N0 ERROR GETTING RNDS 


SEQ 0162 
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172 

034546 

000401 

173 

034550 

000000 

174 

01/4552 

062716 

175 

034556 

113776 

176 

034564 

000470 

177 



178 

034566 

032737 

179 

034574 

001004 

180 

034576 

032737 

181 

182 

183 

034604 

001462 

034606 

012737 

184 

034614 

112737 

185 

034622 

112737 

186 

034630 

004737 

187 

034634 

000410 

188 

034636 

000401 

189 

034640 

000000 

190 

034642 

062716 

191 

034646 

113776 

192 

034654 

000434 

193 



194 

034656 

004737 

195 



196 



197 



198 

034662 

032737 

199 

034670 

001430 

200 



201 

034672 

004737 

202 

034676 

000410 

203 

034700 

000401 

204 

03470? 

000000 

205 

034704 

062716 

206 

034710 

113776 

207 

034716 

000413 

208 



209 

034720 

004737 

210 

034724 

000412 

211 

034726 

000401 

212 

034730 

000000 

213 

034732 

005726 

214 

034734 

062716 

215 

034740 

113776 

216 

034746 

162716 

217 

034752 

000240 

218 

219 

220 

034754 

000207 

034756 

000000 

221 

034760 

000000 


000004 

034550 

000000 

26$: 

27$: 

040000 

034760 

28$: 

020000 

001350 


000007 

000000 

000200 

040360 

001412 

001555 

001556 

29$: 

000004 

034640 

000000 

30$: 

040732 


31$: 

000010 

034756 

;;*****' 

.•VERIFY 

040110 



000004 

034702 

000000 

32$: 

33$: 

051622 


34$: 

000004 

034730 

000002 

000000 

35$: 

36$: 

37$: 

38$: 


8R 

27$ 

.WORD 

0 ; 

ADD 

#4, (SP) 

HOVB 

26$,9(SP) 

BR 

S?$ 

BIT 

#SKI.40$ ; 

BNE 

29$ 

BIT 

APIP.RMDSI 

BEQ 

33$ 

MOV 

fRECAL !G0.RMCS10 

HOVB 

#RMCS1 , PUT I NX 

HOVB 

#200,PUTINX*1 

JSR 

PC.PUT 

BR 

3ii 

BR 

30$ 

.WORD 

0 

ADD 

#4. (SP) 

HOVB 

3oi-2.a(SP) 

BR 

37$ 

JSR 

PC.TIMOUT 

RECALIBRATE IF BIT 3 SET 

BIT 

*8IT3.39$ 

BEQ 

38$ 

JSR 

PC.GET 

BR 

34i 

BR 

33$ 

.WORD 

0 

ADD 

#4, (SP) 

HOVB 

32$.a(SP) 

BR 

37$ 

JSR 

PC.RCLSTS 

BR 

38i 

BR 

36$ 

.WORD 

0 

TST 

(SP)* 

ADD 

#4 ASP) 

HOVB 

35i.a(SP) 

SUB 

#2, (SP) 

NOP 


RTS 

PC 

.WORD 

0 

.WORD 

0 


ERROR FROM GET SU6 
TRANSFER ERROR TO USER 


WAS SKI SET ? 

YES. GO RECALIBRATE 
IS PIP ACTIVE?? 

NO!! 

;LOAD RECALIBRATE COMMAND 
AND REGISTER INDEX 
SET TERMINATOR 
GO ISSUE RECALIBRATE 
NO ERROR 

ERROR IN REGISTER TRANSFER 
: TRANSFER ERROR TO USER 


;UAIT FOR COMPLETION 


IN TASK 

.•VERIFY RECALIBRATE?? 
;N0! ! 

;G0 GET STATUS 

;N0 ERROR GETTING STATUS 

.•ERROR FROM GET 
.-TRANSFER ERROR TO USER 


;G0 CHECK RECALIBRATE 
;N0 ERROR DURING RECALIBRATE 

; ERROR DURING RECALIBRATE 
.•STRIP RETURN TO SUB AND 
.•TRANSFER ERROR TO USER 

.•MOVE SP BACK BEFORE ERROR 

.-RETURN TO USER 

; TASK/VERIFY DESCRIPTOR 
.•CONTAINS RMER2 



sea 0163 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 034762 

34 034766 

35 034772 

36 

37 

38 

39 034776 

40 035002 

41 035004 

42 

43 

44 

45 


51 

52 

53 

54 

55 


062716 

105076 

162716 


005737 

001402 

000137 


0u0006 

000000 

000006 


001512 

C36340 


SBTTL BAD SECTOR MODULE 

THE MODULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER 
GENERATOR SUBROUTINE, AND PRESERVES THE "PUT BUFFER*' SO THAT THE 
BUFFER NEED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 
OPERATION. 

.HE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED 
SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS "ASNDA" AND "ASNDC** 

SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 

THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS: 

(1) RECOVER THE BAD SECTOR FILES AND 

(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONE 
ELECTED IS NOT AVAILABLE FOR USE. 

INFORMATION REQUIRED BY THE MODULE INCLUDES: 

(1) .RMDCO * THE OESIRED CYLINDER, 

(2) .RMOAO - THE TRACK AND SECTOR ADDRESS, 

(3) .RMWCO - THE WORD COUNT, 

(4) .RMCS10 - THE COMMAND, 

(5) .RMOFO - THE FORMAT MODE AND SKIP SECTOR ERROR INHIBIT. 


CALL: 


JSR 

BR 

TYPE 


PC.8ADSCT 
* MESSAGE 


ERROR N 


BADSCT: ADD 
CLR8 
SUB 


06 AS?) 

»<SP) 

#6,(SP) 


CALL SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE IF THE BAD SECTOR FILE 
CANNOT BE RECOVERED. 

THE EMT OFFSET NUMBER ’N* IS DEFINED 
BY BAD SECTOR MODULE. 

CLEAR ERROR NUMBER IN USER'S 
ERROR CALL. 


.-TEST 'MEDIA ENABLE" TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
.-HAVE BEEN RECOVERED. 

TST MEDENB .’HAVE BAD SECTOR FILES BEEN RECOVERED ? 

BEQ 1$ ;8R IF NO 

JMP 56$ ;YES, BAD SECTOR FILE IS AVAILABLE 

RECOVER SKIP SECTOR FILE FROM CYLINDER = 559., TRACK = 0 AND 
RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = 558., 


035010 

035010 

010046 


0 i rwiv»> 
1$: 

— unii 

NOV 

035012 

005000 



CLR 

035014 

016060 

001412 104254 

2$: 

MOV 

035022 

062700 

000002 


ADD 

035026 

022700 

000046 


CMP 

035032 

103370 



BHIS 


RO.-(SP) 
RO 


nw • w mn 

PUTBUF(RO). BUFFER (RO) 
02. RO 
# 46 . RO 
2 $ 


;;PUSH RO ON STACK 
START WITH RMCS1 


ADVANCE TO NEXT BUFFER POSITION 
END OF BUFFER 
NO ! ! 


.-SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE 
.•SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST <3 SECTORS) 
035034 012737 000003 037054 MOV #3.74$ «« 

56 035042 012737 001057 001446 MOV #559., RMDCO .’DESIRED CYLINDER = 559. 
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5 7 035050 

58 035056 

59 C35064 

60 035072 

61 

62 0351 GO 

63 035104 

64 035110 

65 035114 

66 035120 

67 035124 

68 035130 

69 035134 

70 035140 

71 

72 

73 035142 

74 035142 

75 035146 

76 035152 

77 035154 

78 035156 

79 035160 

80 035164 

81 035172 

82 

83 035176 

84 

85 

86 035204 

87 035212 

88 035216 

89 035220 

90 035222 

91 035224 

92 035230 

93 035236 

94 

95 035242 

96 035246 

97 035252 

98 035254 

99 035256 

100 035260 

101 035264 

102 035272 
105 

104 035276 

105 035302 

106 035304 

107 035306 

108 035310 

109 035312 

110 035316 

111 035324 

112 
113 


012737 

012737 

012737 

012737 

012700 

112720 

112720 

112720 

112720 

112720 

112720 

112720 

012600 


004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

013737 


012737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

000412 

000401 

000000 

005726 

062716 

113776 

000137 


000000 

176372 

010000 

105260 

001555 

000006 

000034 

000002 

000032 

000004 

0C0000 

000200 


001420 

001414 

001444 

001416 


MOV fO.RMDAO 

MOV *-258.*3,RMWC0 

MOV #FNT16,RM0F0 

MOV #8UF T WO, R MB AO 

MOV PPUTINX.RO 

MOVB #RMDA,(ftO)+ 

MOVB #RMDC.(RO)+ 

MOVB #RMWC,(RO)+ 

MOVB #RMOF,(RO)+ 

MOVB #RMBA. < RO) ♦ 

MOVB #RMCS1,(R0)* 

MOVB #200, (RO)* 

MOV (SP) *,R0 


.-STARTING TRACK = 0. SECTOR = 0 
; 258 . * 3 SECTORS (2’S COMP) 

; 1 6 BIT FORMAT 

; SETUP BUS ADDRESS TO READ SKIP SECTOR FILE 
;R0 POINTS TO REGISTER INDEX TABLE 


; ; FOP STACK INTO RO 


;SET 

$$: 


GET INDEX TABLE FOR READING STATUS 


040024 



JSR 

PC.GETSTS 


040110 



JSR 

PC, GET 

; 




BR 

5$ 

; 




BR 

4$ 





.WORD 

0 

; 

000006 


4$: 

ADD 

#6, (SP) 


035156 

000000 


MOVB 

4$-2,8(SP) 


035766 



JMP 

42$ 


001400 

037066 

5$: 

MOV 

RMER2I ,79$ 

# 



.-CLEAR 

THE DEVICE USING DRIVE 

CLE 

000011 

001412 


MOV 

#DRVCLR ! G0.RMCS1 0 

040360 



JSR 

PC. PUT 





BR 

8$ 





BR 

7$ 




6$: 

.WORD 

0 


000006 


7$: 

ADD 

#6, (SP) 


035222 

000000 


M0V8 

6$.8(SP) 


035766 



JMP 

42i 


040732 


8$: 

JSR 

PC, TIMOUT 


040110 



JSR 

PC. GET 





BR 

ni 





BR 

10$ 




9$: 

.WORD 

0 


000006 


10$: 

ADD 

06, (SP) 


035256 

000000 


MOVB 

9$.a (SP) 


035766 



JMP 

42i 


053364 


11$: 

JSR 

PC.DRVSTS 





BR 

14* 





BR 

13$ 




12$: 

.WORD 

0 




13$: 

TST 

(SP)* 


000006 



ADD 

06. (SP) 


035306 

000000 


MOVB 

12i,8(SP) 


035766 



JMP 

42$ 



INDEX REGISTER FOR STATUS 


IF NO ERROR 
*> OVER ERROR NUMBER 
10R DEFINED BY GET SUB 
JR ERROR TO USER AND 
GET ERROR NUMBER. 


;GET RMER2 AND SAVE FOR LATER 
CLEAR COMMAND 

.-LOAD COMMAND IN PUT BUFFER 
OUTPUT COMMAND 
RETURN HERE IF NO ERROR 
GET AROUND ERROR # 

ERROR # GOES HERE 

E SP TO USERS ERROR CALL 
MOVE ERROR NUMBER TO USER 


# GOES HERE 


# TO USERS ERROR CALL 


l # GOES HERE 
» RETURN TO SUBROUTINE 
SP TO USERS ERROR CALL 
ERROR # TO USER CALL 


; ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 
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SEQ 0165 


AVV.RMDSI 

23$ 


;IS VV RESET ?? 
;NO 


fPACACK JG0-RMCS10 
PC-PUT 
1 7$ 

16$ 

0 

06. (SP) 

15$.8(SP) 

42$ 


I .'LOAD COMMAND 

GO PUT COMMAND TO DRIVE 

RETURN HERE IF NO OUTPUT ERROR 

GET AROUND ERROR 0 

ERROR 0 GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR 0 TO ERROR CALL 


PC.TIMOUT 

PC.GET 

20i 

19 $ 

0 

06. (SP) 

i8$.a(SP) 

42$ 

PC.ACKSTS 

23i 

22 $ 

0 

(SP)* 

06. (SP) 

2i$,a(SP) 

42$ 


WAIT FOR COMPLETION 

GO GET STATUS FOR PACK ACK 

RETURN HERE IF NO ERROR 

GET AROUND ERROR 0 

ERROR 0 GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR 0 TO CALL 


GO VERIFY ACKNOWLEDGE STATUS 

RETURN HERE IF NO ERROR 

GET AROUND ERROR 0 

ERROR 0 GOES HERE 

STRIP RETURN TO SUBROUTINE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR 0 TO USERS ERROR CALL 


4E DRIVE IF "SKI" OR 'PIP IS SET 


#SKI,79$ 

24$ 

fPIP.RMDSI 

32$ 

#RECAL!GO.RMCS10 

PC-PUT 

26$ 

25$ 

0 

#6- (SP) 
25$-2.a(SP) 

42$ 

PC.TIMOUT 

PC.GET 

29$ 

28$ 

0 

#6- (SP) 

27$,a(SP) 

42$ 


WAS SKI SET ? 

YES- GO RECALIBRATE 
IS PIP SET ?? 

NO ! ! 

.-LOAD RECALIBRATE COMMAND 
PUT THE RECAL COMMAND 
RETURN HERE IF NO ERROR 
GET AROUND ERROR 0 
ERROR 0 GOES HERE 
MOVE SP TO USERS ERROR CALL 
MOVE ERROR 0 TO USERS CALL 


WAIT FOR RECALIBRATE TO COMPLETE 

GO GET RECAL STATUS 

RETURN HERE IF NO ERROR 

GET AROUND ERROR 0 

ERROR 0 GOES HERE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR TO USERS CALL 


PC.RCLSTS 


;G0 VERIFY RECALIBRATE STATUS 



SEO 0166 
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171 035602 

172 035604 

173 035606 

1 74 035610 

175 035612 

176 035616 

177 035624 

178 

179 

180 035630 

181 035630 

182 035636 

183 035642 

184 035644 

185 035646 

186 035650 

187 035654 

188 035662 

189 

190 035666 

191 035672 

192 035676 

193 035700 

194 035702 

195 035704 

196 035710 

197 035716 

198 

199 035722 

200 035726 

201 035730 

202 035732 

203 035734 

204 035736 

205 035742 

206 035750 

207 

208 035754 

209 035762 

210 035764 

211 
212 

213 

214 

215 

216 035766 

217 035772 

218 

219 

220 

221 035774 

222 036002 

223 

224 036004 

225 036012 

226 
227 


000412 

000401 

000000 

005726 

062716 

113776 

000137 


012737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

000412 

000401 

000000 

005726 

062716 

113776 

000137 

032737 

001001 

000477 


000006 

035606 

035766 


000073 

040360 


000006 

035646 

035766 

040732 

040110 


000006 

035702 

035766 

054166 


000006 

035732 

035766 


000000 


001412 


000000 


6R 

BA 

• WORD 
TST 
ADD 
movb 

JMP 


32$ 

31$ 

0 

(SP)* 

#6.(SP) 

3oi.a(SP) 

42$ 


RETURN HERE IF NO ERROR 
GET AROUND ERROR 0 
ERROR 0 GOES HERE 
STRIP RETURN TO SUBROUTINE 
MOVE SP TO USERS ERROR CALL 
MOVE ERROR 0 TO USERS CALL 


•READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
$ 2 $: 


000000 


000000 


040000 0C1336 



MOV 

#RH!G0,RMCS10 

LOAD READ HEADER AND DATA COMMAND 


JSR 

PC .PUT 

PUT COMMAND 


BR 

35i 

RETURN HERE IF NO ERROR 


BR 

34$ 

GET AROUND ERROR 0 

33$: 

.WORD 

0 

ERROR 0 GOES HERE 

34$: 

ADD 

#6, (SP) 

MOVE SP TO USERS ERROR CALL 

MOVB 

JMP 

33$.8CSP> 

42$ 

MOVE ERROR 0 TO USERS ERROR CALL 

35$: 

JSR 

PC.TIMOUT 

WAIT FOR READ OPERATION TO COMPLETE 


JSR 

PC. GET 

GO GET STATUS FOR READ OPERATION 


BR 

38$ 

RETURN HERE IF NO ERROR 


BR 

37$ 

GET AROUND ERROR 0 

36$: 

.WORD 

0 

ERROR 0 GOES HERE 

37$: 

ADD 

#6, (SP) 

MOVE SP TO USERS ERROR CALL 


MOVB 

JMP 

36$,a(SP) 

42$ 

MOVE ERROR 0 TO CALL 

38$: 

JSR 

PC.DTASTS 

GO VERIFY RESULTS OF READ OPERATION 


BR 

4li 

RETURN HERE IF NO ERROR 


BR 

40$ 

GET AROUND ERROR 0 

39$: 

.WORD 

0 

ERROR 0 GOES HERE 

40$: 

TST 

(SP)* 

STRIP RETURN ADDRESS TO SUBROUTINE 


ADD 

#6. (SP) 

MOVE SP TO USERS ERROR CALL 


MOVB 

JMP 

39$.a(SP) 

42$ 

MOVE ERROR 0 TO USERS CALL 

41$: 

BIT 

#TRE.RMCS1I 

ANY CONTROLLER ERRORS ? 


BNE 

42$ 

BR IF YES 


BR 

51$ 

NO ERRORS DETECTED 


005337 037054 
001057 


032737 100720 
001004 

032737 100040 
001453 


001352 


001400 


• • *************************************************************** 

■AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 

;THE SECTOR WILL BE RETRIED IF POSSIBLE. 

42$: DEC 74$ ;YES. DECREMENT RETRY COUNT AND 

BNE 48$ .-RETRY IF COUNT IS POSITIVE 

;THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 

BIT #DCK!HCRC!HCE!FER!ECH.RMER1I ;ANY MEDIA RELATED ERRORS ? 
BNE 43$ ; YES, GO TRY NEXT AVAILABLE SECTOR 

BIT #8SE.'SSE.RHER2I ;ANY MEDIA RELATED ERRORS ? 

BEO 49$ ;N0. EXIT AND REPORT ERROR ON RETURN 

;T HE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 


SEQ 
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228 

229 

230 


234 


23’ 


245 


252 


256 

257 


264 

265 

266 


271 


284 


036014 

032737 

000040 

001400 

43$: 

BIT 

#SSE.RMER2I 

036022 

001406 




BEO 

44$ 

036024 

005237 

001420 



INC 

RMDAO 

036030 

052737 

001000 

001444 


BIS 

ASSEI.RMOFO 

036036 

000432 




BR 

47$ 

03604 C 

062737 

000002 

001420 

44$: 

ADD 

#2 .RMDAO 

036046 

022737 

001056 

001446 


CMP 

#558., RMDCO 

036054 

001407 




BEO 

45$ 

036056 

005237 

001420 



INC 

RMDAO 

036062 

122737 

000017 

001420 


CMPB 

#15., RMDAO 

036070 

101424 




BLOS 

49$ 

036072 

000414 




BR 

47$ 

036074 

022737 

106264 

001416 

45$: 

CMP 

#MFGFIL,RMBAO 

036102 

001004 




BNE 

46$ 

0361 0<* 

122737 

000012 

001420 


CMP8 

#10., RMDAO 

036112 

101413 




BLOS 

49$ 

036114 

122737 

000040 

001420 

46$: 

CMP8 

#32., RMDAO 

036122 

101407 




BLOS 

49$ 

036124 

012737 

000003 

037054 

47$: 

MOV 

#3.74$ 

036132 

162716 

000006 


48$: 

SUB 

#6,(SP) 

036136 

000137 

035142 



JMP 

3$ 





;THE BAD SECTOR FILE CANNOT BE 

036142 




49$: 



036142 

000240 




NOP 


036144 

032777 

020000 

143002 


BIT 

#swi3,aswR 

036152 

001002 




BNE 

50$ 

036154 

162716 

000004 



SUB 

#4.<SP) 

036160 

000137 

037050 


50$: 

JMP 

73$ 





;THE 

SECTOR WAS RECOVERED WITH 





;THIS 

IS THE 

SSF FILE OR ELSE 

036164 




5l$: 



036164 

022737 

001056 

001446 


CMP 

#558. .RMDCO 

036172 

001422 




BEO 

52$ 

036174 

004737 

037070 



JSR 

PC.GETSSF 

036200 

012737 

001056 

001446 


MOV 

#558., RMDCO 

036206 

013737 

001334 

001420 


MOV 

LSTRK, RMDAO 

036214 

012737 

010000 

001444 


MOV 

#FMT16,RM0F0 

036222 

012737 

106264 

001416 


MOV 

#MFGFIL,RMBAO 

036230 

012737 

177376 

001414 


MOV 

#-258. .RMWCO 

036236 

000415 




BR 

53$ 

036240 




52$: 



036240 

022737 

107272 

001416 


CMP 

#USRF1L,RM8A0 

036246 

001416 




BEO 

54$ 

036250 

112737 

000012 

001420 


MOVB 

#10., RMDAO 

036256 

012737 

107272 

001416 


MOV 

#USRFIL,RMBAO 

036264 

012737 

010000 

001444 


MOV 

#FMT16,RM0F0 


;DUE TO THE MEDIA. SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
; ANOTHER AREA ON THE LAST TRACK 

SSE ERROR ? 

NO !! 

DISPLACE SECTOR ADDRESS BY 1 TO 
ACCOUNT FOR THE SKIP SECTOR ERROR 
AND SET SSEI IN OFFSET REGISTER. 

TRY AGAIN 

ADVANCE SECTOR ADDRESS BY 2 
READING DEC 144 BAD SECTOR FILE ? 

YES 11 

IF READING SSF, THEN ADVANCE SECTOR ADDRESS BY 1 
QUIT IF ALL SSF SECTORS HAVE BEEN 
TRIED. 


READING MANUFACTURES BAD FILE ? 

NO !.' 

OUIT IF ALL MFG SECTORS HAVE BEEN 
TRIED. 

OUIT IF ALL USER SECTORS HAVE BEEN 
TRIED. 

REINSTATE RETRY COUNT FOR THIS SECTOR 
MOVE SP BACK TO NO ERROR 
RETRY THE READ OPERATION 


INHIBIT MESSAGE ? 

YES 

MOVE SP TO ERROR RETURN 
GO TO MODULE EXIT 


READING DEC 144 FILES ? 

YES 1 

GET SKIP SECTOR FILE FOR USE 

READ DEC 144 FILE, CYLINDER 558. 

MFG HLE LAST TRACK. SECTOR = 0 
16 BIT FORMAT 

POINT TO MANUFACTURES FILE BUFFER 
2 ♦ 256. WORDS <2'S COMP) 

GO READ MFG FILE 

WAS THE USER FILE READ ?? 

YES - READ IS COMPLETE 

READ THE USER FILE LAST TRACK, SECTOR 

POINT TO USERS FILE BUFFER 

16 BIT FORMAT 


= 10 . 


MORE 
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SEO 0168 


285 036272 

012737 

000003 

037054 

53$: 

MOV 

#3.74$ 

.RELOAD THE RETRY COUNT FOR THIS SECTOR 
; GO READ THE USER FILE 

286 036300 

287 

288 

000137 

035142 



JMP 

3$ 




;SET 

MEDIA ENABLE AND RESTORE 

THE USERS PUT BUFFER 

289 036304 




$4$: 




036304 

010046 




MOV 

RO.-(SP) 

;;PUSH RO ON STACK 

290 036306 

005000 




CLR 

RO 

;R0 IS REGISTER INDEX 

291 036310 

012737 

177777 

001512 


MOV 

#-1 .MEDENB 


292 036316 

016060 

104254 

001412 

55$: 

MOV 

BUFFER (RO).PUTBUF (RO) 

2 Q 3 036324 

062700 

000002 



ADD 

#2,R0 

.■ADVANCE RO 

294 036330 

022700 

000046 



CMP 

#46, RO 

;DONE ?? 

295 036334 

103370 




BHIS 

55$ 


296 036336 

012600 




MOV 

(SPM.RO 

;;POP STACK INTO RO 


297 

298 

299 

300 

301 

302 

303 

304 

305 036340 


'•ft************************************************************** 

VERIFY THAT THE DESIRED SECTOR IS NOT IN THE HFG BAD SECTOR FILE, 
NOT IN THE USERS BAD SECTOR FILE AND NOT IN THE SSF BAD SECTOR FILE. 
ASSIGN A NEU SECTOR IF THE SECTOR IS IN ANY OF THE FILES. 


INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 


036340 

010046 




MOV 

RO,-(SP) 

r* RO ON STACK 

036342 

010146 




MOV 

RI.-(SP) 

. 'F "F R1 ON STACK 

036344 

010246 




MOV 

R,?,-(SP) 

;;P^H R2 ON STACK 

306 036346 

013737 

001446 

001516 


MOV 

RMDCO.ASNDC 

,'LOAD REQUESTED CYLINDER, TRACK, 

307 036354 

013737 

001420 

001520 


MOV 

RMDAO.ASNDA 

;AND SECTOR ADDRESS IN ASSIGNED STORAGE 

308 036362 

005002 




CLR 

R2 

;R2 - NUMBER OF SECTORS 

309 036364 

013700 

001414 



MOV 

RMWCO.RO 

;R0 = WORD COUNT 

310 036370 

005400 




NEG 

RO 

,-MAKE NUMBER POSITIVE 

311 036372 

012701 

000400 



MOV 

#256. ,R1 

;R1 = NUMBER OF WORDS PER SECTOR 

312 036376 

032737 

000002 

001412 


BIT 

#8IT1 ,RMCS10 

;IS THIS A HEADER AND DATA COMMAND ?? 

313 036404 

001402 




BEQ 

57$ 

;N0 ! ! 

314 036406 

012701 

000402 



MOV 

#258., R1 

; CHANGE WORDS PER SECTOR 

315 036412 

020100 



57$: 

CMP 

R1.R0 

;IS THERE A FULL SECTOR ?? 

316 036414 

101404 




BLOS 

58* 

;YES ! ! 

317 036416 

005700 




TST 

RO 

;IS RO ZERO ?? 

318 036420 

001405 




BEQ 

59$ 

;YES ! ! 

319 036422 

005202 




INC 

R2 

.'INCREMENT FOR PARTIAL SECTOR 

320 036424 

000403 




BR 

59$ 


321 036426 

160100 



58$: 

SUB 

R1.R0 

.'SUBTRACT ONE SECTOR FROM WORD COUNT 

322 036430 

005202 




INC 

R2 

.'INCREMENT SECTOR COUNT 

323 036432 

000767 




BR 

57$ 


324 036434 

IOC 

010237 

037054 


59$: 

MOV 

R2.74$ 

.'SAVE SECTOR COUNT 

JCJ 

326 




.-LOAD PARAMETERS AND SEARCH THE MFG, USER AND THE MAPPED SSF BAD 

327 




.'SECTOR 

FILES 

FOR THE ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT 

328 




.'SECTORS IF THE SECTOR COUNT 

IS MORE THAN ONE. 

329 









330 036440 

331 

332 036446 

333 036452 

334 

335 036460 

336 036464 

337 


012737 106300 037064 


004737 

012737 

004737 

012737 


036506 

107306 

036506 

110304 


037064 


037064 


#MFGFIL*14.78$ 
PC, 60$ 

#USRFIL*14,78$ 

PC, 60$ 
#SSFIL+4,78$ 


THE STARTING ADDRESS OF HFG FILE 
TO BASE ADDRESS STORAGE. 

GO SEARCH FILE 

LOAD STARTING ADDRESS OF USR FILE 
TO BASE ADDRESS STORAGE. 

GO SEARCH FILE 

LOAD STARTING ADDRESS OF MAPPED SSF 
FILE TO BASE ADDRESS STORAGE. 
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N 


SEO 0169 


338 036472 

339 

340 036476 

341 036502 

342 

343 036506 

344 036514 

345 036522 

346 

347 

348 


005037 001514 


004737 

000137 

013737 

013737 

013737 


036506 

037026 

001516 

001520 

037054 


037060 

037062 

037056 


CLR SSFENB .-ASSUME ‘SSF 1 BIT IS NOT TO BE WRITTEN 

;IN THE 1ST HEADER WORD. 

JSR PC.60$ .-SEARCH SKIP SECTOR HAPPED FILE 

JMP 71$ .-DONE WITH ALL FILE SEARCHES ! ! 

60$: MOV ASNDC.76$ .-LOAD C0MTARIN6 CYLINDER ADDRESS 

MOV ASNDA, 77$ .-LOAD COMPARING TRACK. SECTOR ADDRESS 

MOV 74$. 75$ .-LOAD NUMBER OF SECTORS TO CONFIRM 

.SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 
.CYLINDER. TRACK AND SECTOR ADDRESS 


3-*'* 

350 036530 

013700 

037064 

61$: 

MOV 

78$, RO 

.-LOAD THE BASE ADDRESS IN RO 

351 036534 

022710 

177777 

62$: 

CMP 

#-1 , (RO) 

.-IS THIS FILE TERMINATOR ? 

352 036540 

001462 



8EQ 

67$ 

;BR IF YES 

353 036542 

023710 

037060 


CMP 

76$. (RO) 

.-IS THIS CYLINDER IN BAD TABLE ? 

354 036546 

001014 



BNE 

63$ 

;8R IF NO 


355 

356 

357 

358 

359 036550 

360 036556 

361 

362 036560 

363 036566 

364 036570 

365 036572 

366 

367 

368 036600 

369 036602 

370 

371 

372 

373 036604 

374 036604 

375 036610 

376 036616 

377 036620 

378 036626 

379 036630 

380 036632 


384 0 


105237 

032737 

001405 

122737 

103327 

000404 

122737 

103322 

105037 

105237 

123737 

103312 

005037 

005237 


589 036700 

590 036702 

591 036704 
92 


022737 

103302 

005726 

000450 


.-FILE ENTRY EQUALS COMPARING CYLINDER. SEE IF THE NEXT ENTRY EQUALS 
.-THE COMPARING TRACK, AND SECTOR. 


123760 037063 
001010 

123760 037062 

001406 

002403 

012737 177777 


022020 

000754 


000003 


000002 


001514 


77$*1,3(R0> 

63$ 

77$,2(R0) 

64$ 

63$ 

#-1 .SSFENB 


<RO)*,(RO>* 

62$ 


;IS THIS TRACK IN BAD TABLE ? 

;BR IF NO 

;IS THIS SECTOR IN BAD TABLE ? 

;8R IF YES 

;BR IF SECTOR IS LESS THAN TABLE ENTRY. ELSE 
.-ENABLE 'SSF* BIT TO BE WRITTEN IN THE 
.-1ST HEADER WORD. 

;N0, ADJUST CYLINDER POINTER IN BAD FILE 
.-AND CONTINUE SEARCH. 


001520 

001000 


001444 


000037 001520 


000036 001520 


.-THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE. 
.-ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 

64$: 

INCB ASNDA .-INCREMENT SECTOR 

BIT #SSEI.RMOFO ;IS SSEI SET ? 

8EQ 65$ ;N0 !! 

CMP8 #31., ASNDA ; SECTOR OK ? 

BHIS 60$ ,*YES !! 


001520 

001521 

001335 

001520 

001516 

001060 


001521 


001516 


INCB ASNDA 

BIT #SSEI .RMOFO 

8EQ 65$ 

CMP8 #31 . .ASNDA 

BHIS 60$ 

BR 66$ 

CMPB #30., ASNDA 

BHIS 60$ 

O.RB ASNDA 

INCB ASNDA* 1 

CMPB (,STRK*1.ASNDA*1 

BHIS 60$ 

CLR ASNDA 

INC ASNDC 

CMP #560. .ASNDC 

BHIS 60$ 

TST <SP)* 

BR 71$ 


SECTOR OK V 
YES 1 ' 

CLEAR' SECTOR AND ADVANCE TRACK 

TRACK OK ? 

YES 1 1 

CLEAR' TRACK AND SECTOR 
INCREMENT CYLINDER 
CYLINDER OK ?? 

YES 1 1 

RESTORE STACK AND 
GET OUT ! ! 


.-THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. DECREMENT THE 
.-NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 
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C EQ 01 70 


395 

396 036706 

397 036706 

398 036712 

399 

400 036714 

401 036720 

402 036726 

403 036730 

404 036736 

405 036740 

406 036742 

407 036750 

408 036752 

409 036756 

410 036762 

411 036770 

412 036772 

413 036776 

414 037002 

415 037010 

416 037012 

417 037020 

418 037022 

419 

420 037024 

421 

422 

423 037026 

424 037026 

425 037034 

426 037042 
037042 
037044 
037046 

427 

428 037050 

429 037052 

430 

431 

432 

433 037054 

434 037056 

435 037060 

436 037062 

437 037064 

438 037066 

439 

440 

441 
44 2 

443 

444 037070 
037070 
037072 

445 037074 

446 037100 


005337 

001456 

105237 

032737 

001405 

122737 

103032 

000404 

122737 

103025 

105037 

105237 

123737 

103015 

005037 

005237 

022737 

103005 

013737 

005726 

000407 

000641 


013737 

013737 

012602 

012601 

012600 

000240 

000207 


000000 

000000 

000000 

000000 

000000 

000000 


037056 


037062 

001000 

000037 


001444 

037062 


000036 037062 

037063 


037062 

037063 

001335 


037062 

037060 

001060 

037060 


037060 

001446 


001516 

001520 


010046 

010146 

012700 105260 
012701 110300 


; I S NOT ZERO. 
67$: 

DEC 

BEO 


1NCB 

BIT 

BEQ 

CMPB 

BHIS 

BR 

CMPB 

BHIS 

CLRB 

INCB 

CMPB 

BHIS 

CLR 

INC 

CMP 

BHIS 

MOV 

TST 

BR 


68 $: 

69$: 


70$: 


BR 


75$ 

73$ 

77$ 

#SSEI ,RM0F0 
68 $ 

#31 . ,77$ 

70$ 

69$ 

#30., 77$ 

70$ 

77$ 

77$*1 

LSTRK+1 ,77$*1 
70$ 

77$ 

76$ 

#560., 76$ 

70$ 

76$.RMDCO 
(SP) + 

72$ 

61$ 


DECREMENT NUMBER OF SECTORS TO COMPARE 
DONE IF ZERO 

INCREMENT THE COMPARING SECTOR 
IS SSEI SET ? 

NO ! ! 

SECTOR OK ? 

VES ! ! 

SECTOR OK ?? 

YES 1 1 

CLEAR ’SEC TOR 
INCREMENT TRACK 
TRACK OK ?’ 

YES 1 1 

CLEAR' SECTOR TRACK 
INCREMENT CYLINDER 
CYLINDER OK ?? 

YES 1 1 

LOAD ‘CYLINDER 
RESTORE STACK AND 
GET OUT !• 

SEARCH NEXT SECTOR 


00 1 446 
001420 


; ASSIGN THE SECTOR AND RETURN TO USER 
> 1 $: 


72$: 


73$: 


74$ 

75$ 

76$ 

77$ 

78$ 

79$ 


MOV 

ASNDC.RMDCO 

MOV 

ASNDA.RMDAO 

MOV 

(SP)+,R2 

MOV 

(SP)*.R1 

MOV 

(SP) +,R0 

NOP 

RTS 

PC 

FOLLOWING 

ARE STORAGE i 


; LOAD CYLINDER 
;LOAD TRACK AND SECTOR 


POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0 

0 

0 

0 

0 

0 


; RETRY COUNT/ NUMBER OF SECTORS REQUIRED 
NUMBER OF SECTORS TO COMPARE 
COMPARING CYLINDER 
COMPARING TRACK AND SECTOR 
BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
CONTAINS RMER2 


THIS ROUTINE SEARCHES THE SKIP SECTOR FILE FOR ANY BAD SECTORS 
WHICH OCCUR ON THE FE CYLINDERS. THE BAD SECTORS ARE THEN MAPPED 
INTO A 'SSFIL* TABLE TO BE USED BY THE 'BADSCT' ROUTINE. 


GETSSF : 


MOV 

MOV 

MOV 

MOV 


RO,— ( SP) 
R1,-(SP) 
#BUFTWO,RO 
#SSFIL.R1 


.•PUSH RO ON STACK 

•PUSH R1 ON STACK 

ftO = POINTER TO BUFFER 

R1 - POINTER to skip sector table 



SEQ 0171 


SAVE HEADER WORD 0(CYL ADDRESS) 

SAVE HEADER WORD 1 (TRK/SEC ADDRESS) 

INITIALIZE 'SSFIL* TABLE 
DONE ? 

BR IF NO 

SETUP TO MAP SSFIL TABLE 

GET OVER S/N<2>, CREATE DATE, REV DATE, REV# , 
FORMAT I YPE , UNUSED WORDS (3), ENTRY# AND 
CHECKSUM <11. WORDS) 

IS CYLINDER IN FE AREA ? 

NO ! i 

YES, ON CYLINDER 560. 

YES, WHEN ON CYLINDER 559. DO NOT LOG 
ANY BAD SECTORS THAT OCCUR ON THE SKIP 
SECTOR TRACK (0) OR ALTERNATE DEC144 TRACK(I) 
IS IT ON TRACK 0 OR 1 ? 

YES 1 1 

LOG THIS CYLINDER AND 
TRACK/SECTOR IN 'SSFIL* TABLE. 

ADJUST BUFFER TO NEXT CYLINDER ENTRY 
ANY MORE ENTRIES AVAILABLE IN TABLE ? 

NO. EXIT ! ! 

;DONE WITH ALL 3 SECTORS ? 

NO, DO NEXT ENTRY 

RESTORE TERMINATOR TO HFGFIL 

;POP STACK INTO R1 
;P OP STACK INTO RO 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 


20 

037214 

037214 

010046 



037216 

010146 



037220 

010246 



037222 

010346 



037224 

010446 


21 

037226 

013700 

001416 

22 

037232 

013701 

001414 

23 

037236 

013737 

001446 

24 

25 

26 

037244 

013737 

001420 

037252 

032737 

000002 

27 

037260 

001451 

037456 

28 

037262 

013710 

29 

037266 

052710 

140000 

30 

31 

32 

037272 

012702 

000035 

037276 

032737 

010000 

33 

037304 

001410 

010000 

34 

037306 

052710 

35 

36 

37 

037312 

005202 


037314 

032737 

OOIOOO 

38 

037322 

001401 


39 

40 

41 

037324 

005202 


037326 

005201 


42 

037330 

001443 


43 




44 

037332 

005720 


45 

037334 

013720 

037460 

46 

037340 

005201 


47 

037342 

001436 


48 

037344 

012703 

037460 

49 

037350 

105213 


50 

037352 

120213 


51 

037354 

103013 


52 

037356 

105013 



.SBTTl BUFFER GENERATOR SUBROUTINE 

THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. 
BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. THE BUFFER 
CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF STMP1 WORDS 
FROM THE DATA PATTERN TABLE. BEGINNING AT ADDRESS STMPO. 
HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC, 
RMDA AND RMOF. 

RO = ADDRESS OF DATA BUFFER 
R1 = LENGTH OF DATA BUFFER 
R2 = ADDRESS OF DATA PATTERN 
R3 - LENGTH OF DATA PATTERN 
R4 = SECTOR COUNT 


THE 


CALL: 

(1) JSR 

( 2 ) ?? 


GENBUF : 


037456 

037460 

001412 IS: 


001444 


001444 


2 $: 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

MOV 

BIS 

MOV 

BIT 

BEQ 

BIS 

INC 

BIT 

BEQ 

INC 

INC 

BEQ 

TST 

NOV 

INC 

BEQ 

NOV 

INCB 

CMP8 

BHIS 

CLRB 


PC.6ENBUF 


RO.-(SP) 
R1,-(SP) 
R2.-(SP) 
R3, -(SP) 
R4.-(SP) 
RNBAO.RO 
RMWC0.R1 
RMDC0.7S 
RMDA0.8S 


RETURN HERE 


.-PUSH RO ON STACK 
.•PUSH R1 ON STACK 
.-PUSH R2 ON STACK 
.•PUSH R3 ON STACK 
;PUSH R4 ON STACK 
LOAD DATA BUFFER ADDRESS 
LOAD WORD COUNT 

LOAD STARTING CYLINDER ADDRESS 
LOAD STARTING TRACK. SECTOR ADDRESS 


#8IT1 .RMCS10 

3$ 


.•WRITE HEADER t DATA?? 

•NO* * 

7%. (RO) .-WRITE HEADER WORD #1 

fMcruiSF rum -SET BAD SECTOR FLAGS FOR GOOD SECTOR 
R 2 = MAXIMUM SECTOR ADDRESS (29.) 


#MSE!USE,(RO) 
029. M 


#FMT16,RN0F0 

2 $ 

#FNT16,(R0) 

R2 

#SSEI .RNOFO 

2$ 

R 2 

R1 

6 $ 

(R0) + 
8$.(R0)+ 

R1 

6J 

#8S.R3 

(R35 

R2,(R?' 

3$ 

(R3) 


18 BIT FORMAT?? 

YES 1 1 

SET 16 FORMAT BIT IN HEADER 
CHANGE MAXIMUM SECTOR ADDRESS (30.) 

IS SSEI SET TO ACCESS ALL SECTORS ? 
NO !! 

CHANGE MAXIMUM SECTOR ADDRESS (31.) 

INCREMENT WORD COUNT 
EXIT IF DONE 

MOVE RO TO HEADER WORD 02 
WRITE HEADER WORD 02 
INCREMENT WORD COUNT AND 
EXIT IF DONE 
ADVANCE SECTOR ADDRESS 

SECTOR OVERFLOW ?? 

NO 1 1 

YES* 1 CLEAR SECTOR ADDRESS 




SE(- 


ADVANCE TRACK ADDRESS 
TRACK OVERTLOW ?? 

NO 1 1 

yes’- clear track address 

ADVANCE CYLINDER ADDRESS 
LOAD SECTOR DATA COUNT 
LOAD PATTERN ADDRESS 
LOAD PATTERN COUNT 
WRITE DATA PATTERN 
INCREMENT WORD COUNT AND 
EXIT IF DONE 
DECREMENT SECTOR COUNT 
START NEXT SECTOR IF 0 
DECREMENT PATTERN COUNT 
RESTART PATTERN IF 0 
CONTINUE DATA PATTERN 

;POP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
; POP STACK INTO R1 
;POP STACK INTO RO 


.‘CYLINDER ADDRESS ST0RA6E 
.•TRACK. SECTOR ADDRESS STORAGE 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 037462 
03746c 
037464 
037466 
037470 

18 037472 

19 

20 

21 037476 

22 037504 

23 037506 

24 037514 

25 037516 

26 037524 

27 037526 

28 037534 

29 

30 

31 037536 

32 037542 

33 037546 

34 

35 

36 037554 

37 037560 

38 037562 

39 037566 

40 037570 

41 037572 

42 037576 

43 

44 

45 037600 

46 037602 

47 037604 

48 037606 

49 037610 

50 037612 

51 

52 

53 037616 


010046 

010146 

010246 

010346 

005037 


033737 

001063 

032737 

001457 

032737 

001053 

032737 

001447 


013700 

013701 

052737 


022701 

103004 

162701 

005720 

000771 

012702 

010203 


020301 

001403 

006302 

005203 

000773 

012703 


030237 


040022 

004000 

100000 

000100 

010000 


001416 

001402 

100000 


000020 

000020 

000001 


000013 

001404 


001370 

001352 

001352 

001370 


040022 


.SBTTL COMPARE BUFFER SUBROUTINF 

THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUFTWO, 
ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN 
AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER 
COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY SUBROUTINE 


; ;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
.-CLEAR CORRECTION FLAG 

CORRECTED 

;WAS ECC CORRECTION ALLOWED ?? 
NO 1 1 

WAS THERE A DATA CHECK ?? 

NO 1 1 

IS ERROR CORRECTION HARD SET ? 
YES 1 1 

IS THIS 16 BIT FORMAT ?? 

NO !.' 


.•CALL: 

(1) 

JSR 

PC. CMPBUF 

(2) 

.WORD 

WRITE BUF 


.WORD 

READ BUFF 

(3) 

BR 

?? 

(4) 

NOP 


(5) 

ERROR 


(6) 

??? 


CMPBUF : 


MOV 

RO.-(SP) 


MOV 

R1 ,-(SP) 


MOV 

R2.-(SP) 


MOV 

R3.-(SP) 

14$ 


CLR 


.•DETERMINE IF DATA SHOULD BE 


BIT 

BNE 

BIT 

BEQ 

BIT 

BNE 

BIT 

BEQ 


ECI.RMOFI 
9$ 

#DCK.RMER1I 

9$ 

#ECH,RMER1I 

9$ 

#FMT16.RM0FI 

9$ 


.•CORRECT DATA USING ECC INFORMATION 

MOV RMBAO.RO ;R0 = STARTING BUFFER ADDRESS 

MOV RMEC1I.R1 ;R1 = ECC POSITION 

BIS #8IT15,14$ .-SET CORRECTION FLAG 

;MOVE RO TO WORD BOUNDARY OF ERROR BURST 


1 $: 


2 %: 


CMP 

BHIS 

SUB 

TST 

BR 

MOV 

MOV 


#16.. R1 

2 $ 

#16.. R1 
(RQ> + 

1 $ 

#1,R2 

R2.R3 


;IS BIT POSITION > 1 WORD 
;N0 !.' 

.•SUBTRACT 1 WORDS WORTH 
; ADVANCE BUFFER ADDRESS 1 WORD 


;R2 = BIT POINTER 
;R3 = 


BIT NUMBER 


MOVE R2 TO STARTING BIT OF ERROR BURST 


ft 


4$: 


CMP 

BEO 

ASL 

INC 

BR 

MOV 


R3.R1 

4$ 

8 

3$ 

#11.. R3 


:CORRECT THE ERROR BURST 
5 $: BIT R2.RMEC2I 


;IS R3 SAME AS R1 ?? 

•YES M 

•SHIFT 'BIT POINTER 
INCREMENT BIT NUMBER 

;R3 = LENGTH OF ERROR BURST 
; IS THIS BIT SET IN ECC PATTERN ?? 
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6 - 


54 037622 

55 037624 

56 037626 

57 037630 

58 037632 

59 037634 

60 037636 

61 037640 

62 037642 

63 037646 

64 037650 

65 037652 

66 

67 

68 037654 

69 037660 

70 037666 

71 037672 

72 037700 

73 037704 

74 037710 

75 037712 

76 037714 

77 037716 

78 037720 

79 

80 

81 037722 

82 037726 

83 037732 

84 037736 

85 037742 

86 037746 

87 037754 

88 

89 

90 037762 
Q1 037770 

92 037772 

93 040000 

94 040006 

95 040010 
040010 
040012 
040014 
040016 

96 040020 

97 

98 040022 


001405 

030210 

001402 

040210 

000401 

050210 

006302 

001003 

012702 

005720 

005303 

001361 


017600 

062766 

017601 

062766 

013702 

163702 

022021 

001003 

005302 

001374 

000433 


014037 

014137 

010037 

010137 

010237 

062766 

112776 


032737 

001403 

112776 

162766 

000240 

012603 

012602 

012601 

012600 

000207 

000000 


000001 


000010 

000002 

000010 

000002 

001340 

001414 


6 $: 

7$: 


8 $: 


BEQ 

BIT 

BEQ 

BIC 

BR 

BIS 

ASL 

BNE 

MOV 

TST 

DEC 

BNE 


7$ 

R2.(Rt> 

6S 

R2, (RO) 

7$ 

R2, (RO) 
R2 

8$ 

#1.R2 
(R0) + 
R3 

5$ 


000010 

000010 


001140 


11$: 

MOV 

001142 



MOV 

001134 



NOV 

001136 



MOV 

001174 



NOV 

000004 

000010 


ADD 

000336 

000010 


N0V8 



.•CHANGE 

ERROR 

100000 

040022 


BIT 




BEQ 

000163 

000010 


MOVB 

000002 

000010 

12$: 

SUB 




NOP 



13$: 



; COMPARE WRITE BUFFER TO READ 
$$: MOV aiO'SP),KO 

ADD #2.10(SP> 

MOV aiO(SP) ,R1 

ADD #2.10(SP) 

MOV RMWCI ,R2 

SUB RMWC0.R2 

10$: CMP (R0)+,(R1)* 

BNE 11$ 

DEC R2 

BNE 10$ 

BR 13$ 

.-DATA COMPARE FAILED 

-(RO).SGDDAT 
-(R1),$8DDAT 
RO,$GDADR 
R1.S8DADR 
R2.$TNP0 
#4.10(SP> 
#336.aiO(SP) 


R8IT15.14$ 

12 $ 

#163.aiO(SP) 

#2,l6<SP> 


;N0 - DO NOT CORRECT THIS BIT 
; IS THE BIT PRESENTLY SET ?? 

;N0 

.RESET THE BIT 

; SE T THE BIT 
.•SHIFT TO NEXT BIT 

.•CONTINUE WITH FIRST BIT OF NEXT WORD 

.-END OF BURST ?? 

;N0 ! ! 

BUFFER 

RO = WRITE BUFFER 
MOVE SP TO READ ADDRESS 
R1 = READ BUFFER 
MOVE SP TO RETURN ADDRESS 
R2 = NUMBER OF WORDS TRANSFER 

COMPARE DATA WORDS 
EXIT IF NOT EQUAL 
DECREMENT WORD COUNT 
CONTINUE IF NOT DONE 
DONE COMPARE - NO ERROR 


STORE GOOD DATA FOR TYPEOUT 
STORE BAD DATA FOR TYPEOUT 
STORE ADDRESS OF GOOD DATA 
STORE ADDRESS OF BAD DATA 
STORE WORD COUNT OF ERROR 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 


WAS ECC CORRECTION USED ?? 
NO 1 1 

ECC ‘CORRECTION FAILED 
MOVE SP TO RETURN IF ERROR 


14$: 


MOV 

MOV 

MOV 

MOV 

RTS 

.WORD 


(SP)*, R3 
(SP)*, R2 
(SP)*, R1 
(SP)*. RO 
PC 


;;POP STACK INTO R3 
; ;POP STACK INTO R2 
;;POP STACK INTO R1 
;;POP STACK INTO RO 
.•RETURN TO USER 

;ECC CORRECTION FLAG 


Scfl 01 ft 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


040024 



040024 

010046 


040026 

010146 


040030 

010246 


040032 

012700 

001526 

040036 

012701 

001406 

040042 

012702 

000046 

040046 

110220 


040050 

005041 


040052 

162702 

000002 

040056 

100405 


040060 

022702 

000022 

040064 

001370 


040066 

005041 


040070 

000770 


040072 

112720 

000200 

040076 

012602 


040100 

012601 


040102 

012600 


040104 

000240 


040106 

000207 



.S8TTL GET STATUS SUBROUTINE 


• THIS SUBROUTINE SETS UP THE "GET INDEX TABLE" AND THE "GET 
.•BUFFER" FOH READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 
;AND THEN RETURNS TO THE USER. 


•CALL: JSR PC.GETSTS 


RETURN HERE 


GETSTS: 

MOV 

RO. -(SP) 


MOV 

RI.-(SP) 


MOV 

R2.-TSP) 


MOV 

#GETINX.RO 


MOV 

<TRMEC2I*2,R1 


MOV 

1TRMEC2.R2 

R2.(R0>+ 

1$: 

MOVB 


CLR 

-(R1) 

2$: 

SUB 

#2,R 2 


BMI 

3$ 


CMP 

0 RMD8.R2 


BNE 

1$ 


CLR 

-<R1) 


BR 

2% 

3$: 

MOVB 

0200, (RO)* 

MOV 

(SPH.R2 


MOV 

(SPJ+.R1 


MOV 

(SPH.RO 


NOP 

RTS 

PC 


;PU$H RO ON STACK 

.-PUSH R1 ON STACK 

.-PUSH R2 ON STACK 

kO = ADDRESS OF INDEX TABLE 

R1 = ADDRESS OF GET BUFFER 

R2 = REGISTER INDE 

WRITE REGISTER INDEX IN TABLE 

CLEAR CORRESPONDING LOCATION 

DECREMENT TO NEXT INDEX 

8RANCH OUT IF DONE 

DONT WRITE RMD8 INDEX 


WRITE TERMINATOR 
;POP STACK INTO R2 
;POP STACK INTO R1 
.-POP STACK INTO RO 
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SEQ 0177 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 040110 

32 040112 

33 040116 

34 040122 

35 040126 
040130 
040132 
040134 
040136 
040140 
040144 

36 040150 

37 040154 

38 040160 

39 040164 

40 040172 

41 040200 

42 040206 

43 040214 

44 040222 

45 040224 

46 040232 

47 040240 

48 040242 

49 040244 

50 040246 

51 040250 


000240 

062716 

105076 

162716 

010046 

010146 

010246 

010346 

010446 

013746 

013746 

013700 

012702 

012704 

012737 

012737 

016037 

016037 

032737 

001007 

062766 

112776 

000423 

105714 

100433 

111401 

042701 


000004 

000000 

000004 


000004 

000006 

001276 

001336 

001526 

040272 

000300 

000010 

000000 

004000 

000004 

000112 


177700 


.S8TTL GET SUBROUTINE 

THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
"GET INDEX TABLE" AND STORES THEIR VALUES IN THE CORRESPONDING 
LOCATION IN THE "GET REGISTER BUFFER". FOR EXAMPLE, AN 
ENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO 
READ ’MBA" AND STORE ITS CONTENTS AT THE LOCATION IN 
THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 

WHICH SHOULD FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL* 

(1) , 'GET INDEX TABLE" HAS BEEN LOADED WITH REGISTER INDEX 
VALUES AND TERMINATED WITH A CONTROL BYTE 

(2) "GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 
UNUSED LOCATIONS, I. E., ENTRIES IN BUFFER CORRESPONDING 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


000004 

000006 

001174 

001176 

001176 

000016 

000016 


(3) JSR 

PC, GET 

BR 

??? 

NOP 


ERROR 


??•> 

• • • 


RO = REGISTER BASE ADDRESS 

R1 - REGISTER ADDRESS 

R 2 = BUFFER BASE ADDRESS 

R3 = BUFFER ADDRESS 

;R4 = POINTER 

TO REGISTER INDEX 

GET: NOP 


ADD 

#4 ,<SP> 

CLRB 

8(SP) 

SUB 

#4,(SP) 

NOV 

RO,-(SP) 

MOV 

R1 ,-<SP> 

MOV 

R2,-<SP) 

MOV 

R3, -(SP) 

MOV 

R4,-(SP) 

MOV 

ERRVEC, -(SP> 

NOV 

ERRVEC+2,-(SP) 

MOV 

SBASE.RO 

MOV 

#G£T8UF,R2 

MOV 

#G£TINX,R4 

MOV 

#3$, ERRVEC 

MOV 

#PR6, ERRVEC +2 

1$: MOV 

RMCS2(R0),$TMP0 

MOV 

RMCS1 (RO) ,$TMP1 

BIT 

#DVA,$TMP1 

BNE 

2$ 

ADD 

#4.16(SP) 

MOVB 

ni2,ai6(sp> 

BR 

4$ 

2$: TSTB 

(R4) 

BMI 

6J 

MOVB 

<R4),R1 

BIC 

f A CIDXMSK,R1 


; CLEAR ERROR NUMBER IN USER'S 
; ERROR CALL 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 


SETUP FOR TIMEOUT 

GET ‘ttED" STATUS 
GET "DVA" STATUS 
DEVICE AVAILABLE?? 

YES!! 

WRITE ERROR NUMBER IN USER'S 
ERROR CALL 

DONE?? 

YES' 1 

R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 



SEQ our 1 


;R3 = STORAGE ADDRESS FOR REGISTER 
.-CLEAR ANY SIGN EXTENSION 

.-READ REGISTER 


.•RESTORE STACK 
.-WRITE ERROR NUMBER IN 
.•USER'S ERROR CALL 

.-DONE CLEARING?? 

•YES' ' 

•CLEAR REMAINING STORAGE 
.•LOCATIONS 


;;POP STACK INTO ERRVEC+2 
.-POP STACK INTO ERRVEC 
;POP STACK INTO R4 
;POP STACK INTO R3 
.-POP STACK INTO R 2 
;POP STACK INTO R1 
;POP STACK INTO RO 
RETURN 
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<A i~^£ I6:<«y:3c KAbt *1 


1 


040360 

040362 

040364 

040366 

040370 

040372 

040374 

040400 

040404 

040410 

040414 

040420 

040426 

040434 

040442 

040450 

040456 

040460 

040466 

040474 

040476 

040500 

040502 

040504 

040510 

040512 

040514 

040520 

040522 

040524 


000240 

010C46 

010146 

010246 

010346 

010446 

013746 

013746 

013700 

012702 

012704 

012737 

012737 

016037 

016037 

032737 

001007 

062766 

112776 

000430 

105714 

100431 

111401 

042701 

060001 

111403 

042703 

060203 

011311 

122714 


000004 

000006 

001276 

001412 

001555 

040540 

000300 

000010 

000000 

004000 

000004 

000112 


177700 


177700 


000032 


000004 

000006 

001174 

001176 

001176 

000016 

000016 


.S8TTL PUT SUBROUTINE 


THIS SUBROUTINE WRITES THE RE6ISTERS WHICH ARE LISTED IN THE 
’■PUT INDEX TABLE" WITH THE CONTENTS OF THE CORRESPONDING 
LOCATION IN THE ’PUT REGISTER BUFFER". THE NUMBER OF 
REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 
BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 


(1) 

( 2 ) 

(3) 


RO 
R1 
R 2 
R3 
R4 


PUT: 


1 $: 


2 $: 


‘Hit index table" has been loaded with index values 

OF REGISTERS TO BE WRITTEN. 

‘■PL REGISTER BUFFER" CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 

JSR PC, PUT 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBER 

??? 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 


NOP 

MOV RO.-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3.-CSP) 

MOV R4,-(SP) 

MOV ERRVEC.-(SP) 

MOV ERRVEC*2,-(SP) 

MOV S8ASE,R0 

MOV #PUTBUF,R2 

MOV #PUTINX,R4 

MOV #4$ .ERRVEC 

MOV #PR6,ERRVEC+2 

MOV RMCS2(R0) ,$TMPO 

MOV RMCS1 (R0).$TMP1 

BIT fDVA.STMPl 

BNE 2$ 

ADD #4.16(SP) 

M0V8 #112,ai6(SP> 

BR 5$ 

TSTB (R4) 

BMI 6$ 

M0V8 (R4),R1 

BIC fCIDXMSK.Rl 

ADD R0.R1 

MOVB (R4I.R3 

BIC #*CIDXMSK,R3 

ADD R2.R3 

MOV (R3MR1) 

CMP8 #RMOF , (R4) 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R 2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH ERRVEC ON STACK 

;;PUSH ERRVEC *2 ON STACK 


.•SETUP FOR TIMEOUT 

;GET ‘NED" STATUS 
;GET ’fcVA" STATUS 
.•DEVICE AVAILABLE?? 

•YES' 1 

•WRITE ERROR NUMBER IN 
; USER'S ERROR CALL 

.DONE?? 

•YES 1 1 

;R1 s REGISTER ADDRESS 
.•CLEAR ANY SIGN EXTENSION 

;R3 = STORAGE ADDRESS 
.-CLEAR ANY SIGN EXTENSION 

.•WRITE REGISTER 

.-WAS RMOF JUST LOADED ? 
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52 040530 

001001 



BNE 

3$ 

53 040532 

011311 



mo; 

(R3MR1) 

55 040534 

105724 


3S: 

TSTB 

(R4) + 

56 040536 

000757 



BR 

2$ 

^ y 

58 040540 

022626 


4$: 

CMP 

(SPH.(SP)* 

59 040542 

062766 

000004 

000016 

ADD 

*4.16(SP) 

60 040550 

112776 

000007 

000016 

M0V8 

#7,816(SP) 

61 040556 

162766 

000002 

000016 5$: 

SUB 

#2.16(SP) 

62 






63 040564 
040564 

012637 

000006 

6$: 

MOV 

(SPI+.ERRVEC+2 

040570 

012637 

000004 


MOV 

(SP)+. ERRVEC 

040574 

012604 



MOV 

(SP)+, R4 

040576 

012603 



MOV 

(SP)+. R3 

040600 

012602 



MOV 

(SPJ+.R2 

040602 

O 1 2601 



MOV 

(SP)+,R1 

040604 

012600 



MOV 

(SP )*. RO 

64 040606 

000207 



RTS 

PC 


! 


SEQ 0180 


BR IF NO 

WRITE RMOF AGAIN, TO ENSURE THAT 16 BIT MODE 
IS SET BEFORE ,, SSEI , ‘ BIT IS SET. 

ADJUST REGISTER POINTER 


ADJUST STACK 

WRITE ERROR NUMBER IN 

USER'S ERROR CALL 


;;POP STACK INTO ERRVEC+2 
;POP STACK INTO ERRVEC 
;POP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
;POP STACK INTO R1 
;POP STACK INTO RO 
RETURN 




SEO 0181 


.-PUSH ERRVEC ON STACK 

;;PUSH ERRVEC *2 ON STAtK 
SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KW11-L 

TEST FOR KW11-L PRESENT 
YES - KU11-L IS PRESENT 
RESTORE SP 

SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KW11-P CLOCK 

TEST FOR KW11-P PRESENT 
YES - KW11-P IS PRESENT 
RESTORE SP 
MOVE RETURN TO ERROR 

; ; POP STACK INTO ERRVEC *2 
;;POP STACK INTO ERRVEC 
.•RETURN TO USER 



URNfAO RM8Q FCTNL PT 3 MACRO V04.00 28- JAN-82 16:49:32 PAGE 23 
TIMEOUT SUBROUTINE 


1 

2 

3 

A 

5 

6 

7 

8 


33 

34 

35 

36 

37 


.SBTTL TIMEOUT SUBROUTINE 

.-THIS SUBROUTINE W*ITS TOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT 
.GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 


9 

040732 

040732 

010046 




040734 

010246 




040736 

013746 

000004 



040742 

013746 

000006 


10 

040746 

012737 

041032 

000004 

11 

040754 

012737 

000300 

000006 

12 

040762 

013700 

001276 


13 

040766 

012702 

000036 


14 

15 

16 

040772 

004737 

041074 


040776 

016046 

000000 


17 

041002 

042716 

177576 


18 

041006 

022726 

000200 


19 

041012 

001421 



20 

041014 

032777 

000200 

140500 

21 

041022 

001765 



22 

041024 

005302 



23 

041026 

001361 



24 

25 

26 

041030 

000412 



041032 

022626 


000012 

27 

041034 

062766 

000004 

28 

041042 

112776 

000007 

000012 

29 

041050 

162766 

000002 

000C12 

30 





31 

041056 

041056 

012637 

000006 



041062 

012637 

000004 



041066 

012602 




041070 

012600 



32 

041072 

000207 




.•CALL: 


TIMOUT: 


IS: 

2 $: 


3$: 


4$: 


JSR 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

BIC 

CMP 

BEO 

BIT 

BEO 

DEC 

BNE 

BR 

CMP 

ADD 

MOVB 

SUB 


MOV 

MOV 

MOV 

MOV 

RTS 


PC. TIMOUT 


RO. -(SP) 

R2,-(SP) 

ERRVEC.-(SP) 

ERRVEC*2,-(SP) 

#3$. ERRVEC 

#PR6,ERRVEC*2 

S8ASE.R0 

#30., R2 

PC.STIMER 


RETURN HERE 


;;PUSH RO ON STACK 
;;PUSH R2 ON STACK 
; ; PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 
.•SETUP FOR BUS TIMEOUT - 04 TRAP 

;R0=8ASE ADDRESS 
;R2=NUMBER OF CLOCK CYCLES 
.•START CLOCK TIMER 


RMCS1 (RO), -(SP) .‘GET 
# A C<RDY!GO>. (SP) 
#RDY, (SP)* 

4$ 

#BIT7,aCLKADR 
2 $ 

R 2 
1 $ 

4$ 


STATUS 


(SP)*,(SP)* 

#4.12(SP) 

#7,912(SP) 

#2.12(SP) 


(SP)+, ERRVEC+2 
(SP)*, ERRVEC 
(SP)*. R2 
(SP)*,RO 
PC 


RDY=1 ,60=0?? 

YES 1 1 

TIMER DONE?? 

NO! I 

DEC NUMBER OF CYCLES 

CONTINUE IF NOT DONE 

’TIDY" DID NOT SET OR "GO" DID NOT RESET 

WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 

ADJUST STACK 

MOVE SP TO USER’S CALL 

WRITE ERROR NUMBER 


;;POP STACK INTO ERRVEC+2 
.-POP STACK INTO ERRVEC 
;POP STACK INTO R2 
;POP STACK INTO RO 
RETURN TO USER 


THIS ROUTINE IS USED START THE KW11-L OR THE KW11-P CLOCK. THE CLOCK 
IS STARTED TO RUN IN FLAG MODE. A CLOCK WILL BE 16.667MS FOR A 60 HZ CPU 
AND 20MS FOR A 50 HZ CPU. 


38 

041074 



STIMER: 



041074 

010146 



MOV 

39 

041076 

013701 

001522 


MOV 

40 

041102 

020127 

172540 


CMP 

41 

041106 

001003 



BNE 

42 

041110 

012761 

000001 000002 


MOV 

43 

041116 

012711 

000005 

1$: 

MOV 

44 

041122 

012601 



MOV 

45 

041124 

000207 



RTS 


R1,-(SP) 
CLKADR.R1 
R1 ,#17^540 
1 $ 

#1,2(R1) 

#8IT2!BIT0,(R1) 

(SP)*,R1 

PC 


;;PUSH R1 ON STACK 
;R1=CL0CK ADDRESS 
,-KWll-P CLOCK?? 

;N0! ! 

.-SET COUNTER 
.•START COUNTER 
;;POP STACK INTO R1 
.•RETURN 


S r 9 0182 
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B O 


SEQ 0183 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


38 

39 041126 

40 

41 


.S8TTL PRIMARY EPPCR CHECK SUBROUTINE 

THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALJD AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
FOLLOWING CHECKS ARE MADE: 

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RMCS2 
(8ITS 0-2) EQUAL THE UNIT BEING TESTED; 

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 
AND NED (SIT 12 OF RMCS2) IS RESET; 

.LAST COMMAND WAS COMPLETED, !.E., THE MASSBUS CONTROLLER IS 
READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
DRIVE READY BIT (8JT 7 OF RMDS) IS SET. 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 

I.E., MCPE = 0. 

.NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 

I.E., PAR = 0, OR, PAR = DPE = 1 

THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 

IN PARTICULAR, RMCS1 , RMCS2 AND RMDS HAVE BEEN STORED IN THEIR 
CORRESPONDING LOCATIONS OF THE "GET" BUFFER. 

.(SUNIT) CONTAINS THE DRIVE NUMBER 


30 

31 

32 

THE 

SUBROUTINE 

IS CALLED AS 

FOLLOWS: 

(1) 

JSR 

PC, PRIERR 


33 


BR 

??? 

RETURN HERE IF NO ERROR 

34 


NOP 


RETURN HERE TO REPORT AN ERROR 

35 


ERROR 


ERROR NUMBER DEFINED BY SU6 

36 


JSR 

PC,B(SPH 

GO BACK TO SUB FOR MORE ERROR CHECKS 

37 


??? 

RETURN HERE IF NO MORE ERRORS 


PRIERR: 


42 041126 

062716 

000004 


ADD 

#4 ,(SP> 

;MOVE (SP) TO ERROR CALL 

43 041132 

105076 

000000 


CLR8 

9(SP) 

.‘CLEAR ERROR NUMBER 

44 041136 

/ c 

162716 

000004 


SUB 

#4 ASP) 

.‘MOVE (SP) TO NO ERROR RETURN 

46 




.•REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 

47 041142 

013737 

001346 

001142 

MOV 

RMCS2I,S80DAT 

.•CORRECT UNIT SELECTED?? 

48 041150 

042737 

177770 

001142 

BIC 

#*CUNTMSK .S8DDAT 


49 041156 

013737 

001234 

001140 

MOV 

SUNIT, SGDDAT 

,‘GOOD DATA FOR TYPEOUT 

50 041164 

042737 

177770 

001140 

BIC 

#*CUNTMSK , SGDDAT 


51 041172 

12373? 

001140 

001142 

CMP8 

SGDDAT, S8DDAT 

.•COMPARE EXPECTED AND RECEIVED 

52 






; DRIVE NUMBERS 

53 041200 

001415 



BEQ 

IS 

;YES! ! 

54 041202 

062716 

000004 


ADD 

#4, (SP) 


55 041206 

112776 

000001 

000000 

MOVB 

#i,b(sp> 

; ERROR 1 

56 041214 

162716 

000002 


SUB 

02 ASP) 

.•MOVE SP TO RETURN FOR ERROR 

57 041220 

004736 



JSR 

pc,b(sp>* 

.‘REPORT WRONG UNIT SELECTED 
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58 

041222 

162716 

000010 



SUB 

#10, (SP) 

.•RESTORE (SP) 

59 

041226 

000240 




NOP 



60 

041230 


041750 



JMP 

105 

.•SKIP OTHER CHECKS 

61 

041 




15: 




be 

63 





.•REPORT 

AN ERROR IF THE DEVICE 

IS NOT AVAILABLE OR IF 

64 





;THE DEVICE IS 

NONEX'STANI 


65 

041234 

57 

004000 

001336 


BIT 

#DVA,RMCS1 I 

.•DEVICE AVAILABLE?? 

6o 

041242 

001045 




BNE 

35 

.•YES' ! 

67 

041244 

013737 

001336 

001140 


MOV 

RMCS1I .5GDDAT 

.'EXPECTED STATUS 

68 

C41252 

052737 

004000 

001140 


BIS 

#DVA.5GDDAT 


69 

041260 

013737 

001336 

001142 


MOV 

RMl'SlI .5BDDAT 

.•RECEIVED STATUS 

70 

041266 

062716 

000004 



ADD 

#4, <sp5 


71 

041272 

112776 

000002 

000000 


HOVB 

#2,i(SP> 

; ERROR #2 

72 

041300 

032737 

010000 

001346 


BIT 

#NED,RMCS21 

;WAS NED SET?? 

73 

041306 

001414 




BEQ 

25 

; NO ! ! 

74 

041310 

013737 

001346 

001140 


MOV 

RMCS2I .5GDDAT 

.•EXPECTED STATUS 

75 

041316 

013737 

001346 

001142 


MOV 

RMCS2I .5BDDAT 

.•RECEIVED STATUS 

76 

041324 

042737 

010000 

00H40 


BIC 

#NED,5GDDAT 


77 

041332 

112776 

000003 

000000 


Move 

#3.8(SP) 

; YES - CHANGE ERROR NUMBER 

78 

041340 

162716 

000002 


25: 

SUB 

#2,(SP) 

.•MOVE SP TO RETURN FOR ERROR 

79 

041344 

004736 




JSR 

pc.acsp)* 

.•REPORT DEVICE NOT AVAILABLE 

80 

0*»1346 

162716 

000010 



SUB 

#10, (SP) 

.•RESTORE (SP) 

81 

041352 

000240 




NOP 



82 

041354 

000575 




3R 

105 

.•SKIP OTHER CHECKS 

83 

0/ 

041356 




35: 




04 

85 





.•REPORT 

AN ERROR IE MASSBUS CONTROLLER IS NOT READY 

86 

041356 

032737 

000200 

001336 


•'IT 

#RDY,RMCS1 1 

; CONTROLLER READY?? 

87 

041364 

001030 




bNE 

45 

; YES! ! 

88 

041366 

013737 

001336 

001140 


MOV 

RMCS1I,5GDDAT 

.•EXPECTED STATUS 

89 

041374 

052737 

00020C 

001140 


BIS 

#RDY,5GDDAT 


90 

041402 

042737 

160001 

001140 


BIC 

#SC J TRE ! MCPE ! G0,5GDDAT 

91 

041410 

013737 

001336 

001142 


MOV 

RMCS1I .5BDDAT 

.•RECEIVED STATUS 

92 

041416 

062716 

000004 



ADD 

#4, (SP) 

• 

93 

041422 

112776 

000004 

000000 


M0V8 

#4,a(SP) 

.•ERROR #4 

94 

041430 

162716 

000002 



SUB 

#2,(SP) 

.•MOVE SP TO RETURN FOR ERROR 

95 

041434 

004736 




JSR 

pc.a(SP)* 

; REPORT CONTROLLER NOT READY 

96 

041436 

162716 

000010 



SUB 

#10. (SP) 

.•RESTORE (SP) 

97 

041442 

000240 




NOP 



98 

041444 

000541 




BR 

105 

.•SKIP OTHER CHECKS 

99 

1 AA 

041446 




45: 




1UU 

101 





; REPORT 

AN ERROR IE GO IS NOT 

ZERO .AND DRY IS NOT ONE 

102 

041446 

032737 

000001 

001336 


BIT 

#G0,RMCS1I 

;G0 RfcSET?? 

103 

041454 

001431 




3E0 

55 

; YES! ! 

104 

041456 

032737 

000200 

001350 


BIT 

#DRY,RMDSI 

.•DRIVE READY?? 

105 

041464 

001025 




BNE 

55 

; YES! • 

106 

041466 

013737 

001336 

001140 


MOV 

RMCS1I.5GDDAT 

.•EXPECTED STATUS 

107 

041474 

042737 

160001 

001140 


BIC 

#SC ! TR”! MCPE! GO, 5GDDAT 

108 

041502 

013737 

001336 

001142 


MOV 

RMCS1I .5BDDAT 

.•RECEIVED STATUS 

109 

041510 

062716 

000004 



ADD 

#4,(SP) 


110 

041514 

112776 

000005 

000000 


MOVB 

#5.8(SP) 

; ERROR #5 

111 

041522 

162716 

000002 



SUB 

#2, (SP) 

.•MOVE SP TO RETURN FOR ERROR 

112 

041526 

004736 




JSR 

pc.a(SP)* 

; REPORT DRIVE NOT READY 

113 

041530 

162716 

000010 



SUB 

#i6.(sp) 

; RESTORE (SP) 

114 

041534 

000240 




NOP 





CZRNFAO 

RM80 FCTNL PT3 MACRO V04.00 28- 

-JAN-82 16:49:32 

PAGE 24-2 

PRIMARY 

ERROR CHECK SUBROUTINE 





115 

116 
:i 7 
118 

041536 

041540 

000504 



5$: 

BR 

105 





.-REPORT 

AN ERROR IF THE RH CON 

119 





.-PARITY 

ON THE 

MASSBUS CONTROL 

120 

041540 

032737 

020000 

001336 


BIT 

fMCPE.RMCSII 

121 

041546 

001425 




BEQ 

6$ 

122 

041550 

013737 

001336 

001140 


MOV 

RMCS1I,$GDDAT 

#SC!TRE!MCP£!G 

123 

041556 

042737 

160001 

001140 


BIC 

124 

041564 

013737 

001336 

001142 


MOV 

RMCS1I,$BDDAT 

#4,(SP) 

flS.a(SP) 

125 

041572 

062716 

000004 



ADD 

126 

041576 

112776 

000013 

000000 


MOVB 

127 

041604 

162716 

000002 



SUB 

#2, (SP) 

128 

041610 

004736 




JSR 

pc.a<sp>* 

#10. (SP) 

129 

041612 

162716 

000010 



SUB 

130 

041616 

000240 




NOP 

10$ 

131 

041620 

000453 



6$: 

BR 

132 

041622 






133 








134 





; REPORT 

AN ERROR IF THE RM80 D 

135 

041622 

032737 

000010 

001352 


BIT 

#PAR,RMER1I 

136 

041630 

001451 




BEQ 

11$ 

137 

041632 

032737 

000010 

001400 


BIT 

#DPE,RMER2I 

138 

041640 

001045 




BNE 

11$ 

139 

041642 

032737 

000010 

001426 


BIT 

#PAR,RMER10 

140 

041650 

001413 




BEQ 

9$ 

141 

041652 

010046 




MOV 

RO,-(SP) 

142 

041654 

012700 

001555 



MOV 

#PUTINX,RO 

143 

041660 

122710 

000014 


7$: 

CMP8 

#RMER1,(R0) 

144 

041664 

001002 




BNE 

8$ 

145 

041666 

012600 




MOV 

(SPH.RO 

146 

041670 

000431 




8R 

11$ 

147 

041672 

105720 



8$: 

TST8 

<R0> + 

148 

041674 

100371 




BPL 

7$ 

149 

041676 

012600 




MOV 

(SP)+,RO 

150 

041700 

013737 

001352 

001140 

9$: 

MOV 

RMER1I,$GDDAT 

151 

041706 

042737 

000010 

001140 


BIC 

#PAR 1 $GDDAT 
RMER1I.$8DDAT 
#4. (SP) 
#50.a(SP) 

152 

041714 

013737 

001352 

001142 


MOV 

153 

041722 

062716 

000004 



ADD 

154 

041726 

112776 

000050 

000000 


MOVB 

155 

041734 

162716 

000002 



SUB 

92. (SP) 

156 

041740 

004736 




JSR 

pc.a(sp>* 

#10, (SP) 

157 

041742 

162716 

000010 



SUB 

158 

041746 

000240 




NOP 


159 

041750 

062716 

000010 


10$: 

ADD 

#10. (SP) 

160 

041754 

000240 



11$: 

NOP 


161 

041756 

000207 




RTS 

PC 


SEQ 0185 


PARITY ERROR ?? 

NO 1 ' 

EXPECTED STATUS 
GDDAT 

RECEIVED STATUS 

MOVE STACK TO USER’S ERROR 

ERROR #13 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE STACK 


WAS THERE A PARITY ERROR?? 
NO!! 

WAS IT THE CONTROL BUS?? 

NOT SURE!! 

DID TEST SET PAR ?? 

NO!! 

; PUSH RO ON STACK 
RO POINTS TO INDEX TABLE 
SEARCH TABLE FOR RMER1 

;POP STACK INTO RO 
PAR WAS SET 8Y TEST 
END OF TABLE?? 

NO!! 

;P OP STACK INTO RO 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE THE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR 

MOVE SP TO NO ERROR RETURN 

RETURN TO ERROR 
RETURN TO NO ERROR 
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E 15 


SEO 0186 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 


32 

33 


45 

46 


, SBT1L SECONDARY ERROR CHECK SUBROUTINE 

THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
ASSOCIATED WITH THE OPERATION BEING PERFORMED. 

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


CALL: 


JSR 

BR 

NOP 

ERROR 

JSR 


PC.SECERR 


pc.a<sp>+ 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMPER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


041760 




SECERR: 







: STORE FUNCTION CODE AND CLEAR 

041760 

013737 

001412 

046120 


MOV 

RNCS10.81* 

041766 

0*2737 

177701 

046120 


BIC 

#*C<F0!F1!F2!F: 

041774 

062716 

000004 



ADD 

#4.(SP) 

042000 

105076 

000000 



CLRB 

a (SP) 

042004 

162716 

000004 



SUB 

#4, (SP) 





.•REPORT 

ERROR 

IF DRIVE IS NOT 1 

042010 

032737 

000200 

001350 


BIT 

fDRY.RMDSI 

042016 

001024 




BNE 

1 $ 

042020 

013737 

001350 

001142 


MOV 

R£DSI .$ 8 DDAT 

042026 

042737 

177577 

001142 


BIC 

#*CDRY.* 8 DDAT 

042034 

012737 

000200 

001140 


MOV 

#DR Y.SGDDAT 

042042 

062716 

000004 



ADD 

#4 .(SP) 

042046 

112776 

000010 

000000 


MO VS 

#l 6 ,a(SP) 

042054 

162716 

000002 



SUB 

M2 ASP) 

042060 

004736 




JSR 

pc.a(SP)+ 

042062 

162716 

000010 



SUB 

#10. (SP) 

042066 

000240 




NOP 






; REPORT 

ERROR 

IF GO BIT IS NOT 

042070 

032737 

000001 

001336 

1 $: 

BIT 

#G0,RMCS1I 

042076 

001423 




BED 

2 $ 

042100 

013737 

001336 

001142 


MOV 

RMCS1I.JBDDAT 

042106 

042737 

177776 

001142 


BIC 

# A CG0,$8DDAT 

042114 

005037 

001140 



CLR 

SGDDAT 

042120 

062716 

000004 



ADD 

#4.(SP) 

042124 

112776 

000011 

000000 


M0V8 

#i1,a(SP) 

042132 

162716 

000002 



SUB 

M2 ASP) 

042136 

004736 




JSR 

pc.a(sp)* 

042140 

162716 

000010 



SUB 

# 16 . (SP) 

042144 

000240 




NOP 



NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT TH. 
INPUT REGISTER BUFFER. 


; STORE FUNCTION CODE 


;MCVE (SP) TO ERROR CALL 

; CLEAR ERROR NUMBER 

;MOVE <SP> TO NO ERROR RETURN 


.-DRIVE READY?? 

•YES' 1 

•BAD* DATA FOR TYPEOUT 
.-GOOD DATA FOR TYPEOUT 
.'ERROR NUMBER 

.•MOVE SP TO RETURN FOR ERROR 
.-REPORT NOT READY 

.'RESTORE (SP) TO ERROR N 


;G0 SIT RESET?? 

•YES 1 1 

•BAD' DATA FOR TYPEOUT 
.•GOOD DATA FOR TYPEOUT 
.•ERROR NUMBER 

.-MOVE SP TO RETURN FOR ERROR 
.•REPORT DEVICE NOT AVAILABLE 
.•RESTORE (SP) 



.ZRNFAO RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 25-1 
SECONDARY ERROR CHECK SUBROUTINE 


SEO 0187 


58 

59 

60 042146 

61 042154 

62 042162 

63 042170 

64 042176 

65 042200 

66 042204 

67 042212 

68 042216 

69 042220 

70 042224 

71 042226 

72 


013737 

042737 

013737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


001336 

177701 

046120 

001142 

000004 

000012 

000002 

000010 


001142 

001142 

001140 

001140 


000000 


: REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 


RMCS1 I .SBDDAT 
# A C76, SBDDAT 
81 S. SGDDAT 
SBDDAT, SGDDAT 

3* 

#4.(3P) 
#i2,a(s p> 

#2, (SP) 
PC.i(SP)* 

#10, (SP) 


;IS FUNCTION CODE CORRECT?? 
.•EXPECTED FUNCTIOh CODE 


.vfcS!! 

; ERROR NUMBER 

;M0»£ SP TO RETURN FOR ERROR 
; REPORT WRONG FUNCTION CODE 
.•RESTORE (SP) 


REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 


74 




.•OTHER 

ERRORS 

ARE SET 

i 

.•EXPECT "ERR" = 0 1 

75 042226 

005037 

001140 



CLR 

SGDDAT 

76 042232 

005737 

001352 



TST 

RMER1I 

; I S RMER1 = 0?? 

77 042236 

001003 




BNE 

4S 

;N0! ! 

78 042240 

005737 

001400 



TST 

RMER2I 

;IS RMERZ = 0?? 

79 042244 

001403 




BEQ 

5S 

•YES' ' 

;"ERR" SOULD BE SET 

80 042246 

052737 

040000 

001140 

4S: 

BIS 

#ERR, SGDDAT 

81 (K2254 

013737 

001350 

001142 

5S: 

MOV 

RMDSI .SBDDAT 


82 042262 

042737 

137777 

001142 


BIC 

# A CERR, SBDDAT 

;IS "ERR" OK?? 

83 042270 

023737 

001140 

001142 


CMP 

SGDDAT, SBDDAT 

84 042276 

001412 




BEO 

6S 

; YES ! ! 

85 042300 

062716 

000004 



ADD 

#4,(SP) 

#47,a(SP) 

,-MOVE SP TO USER'S ERROR 

86 042304 

112776 

000047 

000000 


MOVB 

.•WRITE ERROR NUMBER 

87 042312 

162716 

000002 



SUB 

#2,(SP) 

.-MOVE SP TO ERROR RETURN 

88 042316 

004736 



JSR 

pc.a(SP)+ 

.•REPORT INVALID COMP ERROR 

89 042320 

162716 

000010 



SUB 

#10, (SP) 



90 

91 

92 

93 

94 042324 

95 042330 

96 042334 

97 042340 

98 042342 

99 042350 

100 042352 

101 042360 

102 042362 

103 042370 

104 C42376 

105 042404 

106 042412 

107 042414 

108 042420 

109 042426 

110 042432 

111 042434 

112 042440 

113 04244? 

114 


005037 

013746 

042726 

001010 

032737 

001407 

022737 

103003 

052737 

013737 

042737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


001140 

001346 

000377 

040000 001350 
000030 046120 


REPORT AN ERROR IF "TRE" IS SET AND NONE OF THE BITS WHICH SET 


040000 

001336 

1377*7 

001140 

000004 

000014 

000002 

000010 


001140 

001142 

001142 

001142 


000000 


TRE IS SET, OR 
SET TRE IS SET 
S: CLR 

MOV 
BIC 
BNE 
BIT 
BEO 
CMP 
BHIS 
$: BIS 

$: MOV 

BIC 
CMP 
BEO 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 


IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 


SGDDAT 
RMCS2I,-(SP) 
#377, (SPH 

7$ 

#ERR,RMDSI 

8S 

#SEARCH,81S 

8 $ 

#TRE. SGDDAT 
RMCS II, SBDDAT 
# A CTRE, SBDDAT 
SGDDAT, SBDDAT 

9$ 

#4 f (SP) 
#i4,a(SP) 

#2 ,<SP) 

pc.a(sp)+ 

#10, (SP) 


EXPECT "TRC" = 0 
WAS DLT, WCE, UPE, NED, NEM 
PGE, MXF OR MDPE SET 
YES* ! 

WAS EXCEPTION RECEIVED?? 

NO!! 

WAS DATA TRANSFERRED?? 

NO!! 

"TRE" SHOULD BE SET 
BAD DATA FOR TYPEOUT 

IS "TRE" OK?? 

YES!! 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT TRE ERROR 
RESTORE (SP) 
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u j 


SEQ 0188 


115 



116 



117 



118 



119 



120 



121 



122 



123 



124 042442 

010046 


125 042444 

013700 

046120 

126 042450 

016037 

067244 

127 042456 

012600 


128 



129 



130 



131 042460 

013/37 

046112 

132 042466 

032737 

040000 

133 04247' 

001403 


134 042' 76 

052737 

100000 

135 042504 

042737 

077777 

136 042512 

013737 

001350 

137 042520 

042737 

077777 

138 042526 

023737 

001140 

139 042534 

001413 


140 042536 

062716 

000004 

141 042542 

112776 

000006 

142 042550 

162716 

000002 

143 042554 

004736 


144 042556 

162716 

000010 

145 042562 

000240 


146 042564 



147 



148 



149 



150 042564 

013737 

046112 

151 042572 

042737 

177776 

152 042600 

013737 

001352 

153 042606 

042737 

177776 

154 042614 

023737 

001140 

155 042622 

001412 


156 042624 

062716 

000004 

157 042630 

112776 

000254 

158 042636 

^2716 

000002 

159 042642 

004736 


160 042644 

162716 

000010 

161 042650 

005037 

001140 

162 



■•63 



164 042654 

013746 

046112 

165 042660 

052716 

137777 

166 042664 

013737 

001346 

167 042672 

042637 

001142 

168 042676 

001412 


169 042700 

062716 

000004 

170 042704 

112776 

000026 

171 0^2712 

162716 

000002 


046112 


001140 

001350 

001140 

001140 

001142 

001142 

001142 


000000 


001140 

0J1140 

001142 

001142 

001142 


000000 


001142 

000000 


USJNG THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 

.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF 
.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND ETH 
NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 
STATUS CONDITIONS. E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 
WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

GET AND STORE THE ENTRY FROM THE FUNCTION CODE TA8LE 


MOV RO.-(SP) 

MOV 81S.R0 

MOV FNCDTB(R0>,78$ 

MOV (SP)*,RO 


;;PUSH RO ON STACK 
;GET FUNCTION CODE 
.•STORE ENTRY 
;;POP STACK INTO RO 


10 $: 


; REPORT AN ERROR IF AN UNEXPECTED 
;ATA IS NOT SET AND SHOULD BE SET 
MOV 78S.SGDDAT 

BIT #ERR.RMDSI 

BEQ 10S 

BIS #ATA, SGDDAT 

81 C #*CATA. SGDDAT 

MOV RMDSI .SBDDAT 

BIC # A CATA, SBDDAT 

CMP SGDDAT, SBDDAT 

BEQ IIS 

ADD #4.(SP) 

MOVB #6.a(SP) 

SUB M2. (SP) 

jsr Pc.a(SP)* 

SUB #10, (SP) 

NOP 

IIS: 


ATTENTION OCCURRED OR IF 

GET EXPECTED ATA STATUS 
IS COMPOSITE ERROR SET ?? 

NO ! ! 

EXPECT AN ATTENTION 
STRIP DONT CARES 
GET RECEIVED ATA 
STRIP DONT CARES 
IS ATA OK ?? 

YES 1 1 

MOVE’S P TO USERS ERROR CALL 
LOAD ERROR # IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 


.•REPORT ERROR IF ILF IS INCORRECT, 
.-WITH FUNCTION CODE TABLE 
78S.SGDDAT 
#*CILF. SGDDAT 
RMER1 I, SBDDAT 
#*CILF, SBDDAT 
SGDDAT. SBDDAT 
12S 

#4.(SP) 

#254,a(SP) 

02. (SP) 

pc.atsp >♦ 

#10. (SP) 

SGDDAT 


I.E., IP ILF DOES NOT COMPARE 


12 $: 


MOV 

BIC 

NOV 

BIC 

CMP 

BEQ 

ADD 

MOVB 

SUB 

JSR 

SUB 

CLR 


GET EXPECTED. ILF 
CLEAR ALL OTHER BITS 
GET RECEIVED ILF 
CLEAR ALL OTHER BITS 
IS ILF OK ?? 

YES 1 1 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
CLEAT EXPECTED STATUS 


.•REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 


MOV 7 8S.-CSP) 

BIS #*CWCE,(SP) 

MOV RMCS2I. SBDDAT 

BIC (SP)*, SBDDAT 

BEQ 13$ 

ADD #4,(SP) 

MOVB #26,a(SP) 

SUB #2, (SP) 


GET WCE STATUS ENABLE 

SET ALL OTHER BITS 

RECEIVED STATUS 

CLEAR WCE IF ENABLED 

BRANCH IF WCE OK 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 
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H 13 


SEC 0189 


172 042716 

173 042720 

174 042*24 

175 

176 

177 042724 

178 042730 

179 042734 

180 042742 

181 042746 

182 042750 

183 042754 

184 0*2762 

185 042766 

186 042770 

187 042774 

188 

189 

190 

191 042774 

19 2 043000 

193 043006 

194 043010 

195 043014 

196 043020 

197 043026 

198 043032 

199 043034 

200 043040 

201 043046 

202 043052 

203 043054 

204 043060 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 


004736 

162716 


013746 

052716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


013746 

032737 

001402 

042716 

052716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


000010 


046112 

157777 

001352 

001142 

000004 

000164 

000002 

000010 


046112 

000100 

010000 

167777 

001400 

001142 

000004 

000165 

000002 

000010 


13$: 


JSR 

SUB 


pc.a(SP)* 

#i6,($p) 


001142 

000000 


.REPORT ERROR IF OPI STATUS IS 
MOV 78$.-<SP) 

BIS fCOPI.(SP) 

NOV RNER1I ,$BDDAT 

BIC (SP) *,$8DDAT 

BEQ 14$ 

ADD #4.(SP> 

MOVB #164,a(SP) 

SUB 02. (SP) 

jsr pc.acsp)* 

SUB #10, (SP) 

14$: 


.•REPORT ERROR 
.•RESTORE ERROR 


SET AND SHOULD NOT BE SET 
;GET OPI STATUS ENABLE 
SET ALL OTHER BITS 
GET RECEIVED STATUS 
CLEAR OPI IF ENABLED 
BRANCH IF OPI OK 
NOVE SP TO USER’S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
NOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 


001350 

001142 

000000 


15$: 


.REPORT ERROR IF I VC IS SET AND 
;SET AND VV IS NOT RESET 
NOV 78$, -(SP) 

BIT #VV,RNDSI 

BEQ 15$ 

BIC #IVC,(SP) 

BIS #*CIVC,(SP) 

NOV RNER2I ,$8DDAT 

BIC (SP)*. SBDDAT 

BEO 16$ 

ADD #4,(SP) 

N0V8 #165.a(SP) 

SUB 02. (SP) 

jsr pc.a(sp)* 

SUB #l6.(SP) 

16$: 


IS NOT ENABLED OR IF IVC IS 


GET IVC STATUS ENABLE 
IS VV SET 
NO ! ! 

YES - IVC SHOULD BE 0 

SET ALL OTHER BITS 

GET RECEIVED STATUS 

CLEAR IVC IF ENABLED 

BRANCH IF IVC OK 

NOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

NOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 


81 T 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT TOR 
ALL WRITE ERRORS. I.E.. 

RNER1 - WLE. WCF 
RNER2 - DPE 
RNCS2 - UPE. 

EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
WRITE ERROR ENABLE BIT IS RESET. 

REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED. OR IF 
THE DRIVE IS NOT WRITE PROTECTED 


043060 

012746 

177777 



NOV 

043064 

032737 

004000 

046112 


BIT 

043072 

001404 


001350 


BEO 

043074 

032737 

C04000 


BIT 

043102 

001002 



17$: 

BNE 

043104 

042716 

004000 


BIC 

043110 

013737 

001352 

001142 

18$: 

NOV 

043116 

042637 

001142 



BIC 

043122 

001412 




BEQ 

043124 

062716 

C00004 



ADD 

043130 

112776 

000023 

000000 


MOVB 

043136 

162716 

000002 



SUB 

043142 

004736 




JSR 


#-1,-(SP) 
#WL§,78$ 

17 $ 

fWRL.RNDSl 

18$ 

#WLE.(SP) 

RMER f I .$6DDAT 

(SP)+,$BDDAT 

19 $ 

#4,(SP) 

#23.a(SP) 

02 . (SP) 
pc.a(SP)* 


ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 
NO 1 1 

IS THE DRIVE WRITE PROTECTED 
YES * 1 

reset'wle ENABLE 
GET RECEIVED STATUS 
CLEAR WLE IF ENABLED 
BRANCH IF WLE OK 
NOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
NOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 


7 *> 
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SEO 


I 15 


229 

0-»3144 

162716 

000010 



SUB 

#10, (SP) 

RESTORE SP TO NO ERROR 

230 

DTI 

043150 




19$' 




c 5 * 

232 





.REPORT 

ERROR 

IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED 

233 

043150 

012746 

177777 



mov 

#-1.-(SP) 

ASSUME WRITE ERRORS ENABLED 

234 

043154 

032737 

004000 

046112 


BIT 

#WLE,78$ 

ARE WRITE ERRORS ENAfi' ED ?? 

235 

043162 

001002 




BNE 

20$ 

YES ! ! 

236 

0*3164 

042716 

000040 



BIC 

#WCF, (SP) 

DISABLE WCF ERROR 

237 

043170 

013737 

001352 

001142 

20$: 

MOV 

RMERlI ,$8DDAT 

GET RECEIVED STATUS 

238 

043176 

042637 

001142 



BIC 

(SP)*,$BDDAT 

RESET WCF IF ENABLED 

239 

043202 

001412 




BEQ 

21$ 

BRANCH IF WCF OK 

240 

043204 

062716 

000004 



ADD 

#4, (SP) 

MOVE SP TO USERS ERkOR CALL 

241 

043210 

112776 

000025 

000000 


MOVB 

# 2 $.a<sp) 

WRITE ERROR NUMBER IN CALL 

242 

043216 

162716 

000002 



SUB 

#2. (SP) 

MOVE SP TO ERROR RETURN 

243 

043222 

004736 




JSR 

pc.a(SP)* 

REPORT ERROR 

244 

043224 

162716 

000010 



SUB 

#10, (SP) 

RESTORE SP TO NO ERROR 

245 

D/ 4 

043230 




21$: 




chO 

247 





.REPORT 

ERROR 

IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 

248 

043230 

012746 

177777 



MOV 

#-1,-(SP) 

ASSUME WRITE ERRORS ARE ENABLED 

249 

043234 

032737 

004000 

046112 


BIT 

#WLE,78$ 

ARE WRITE ERRORS ENABLED ?? 

250 

043242 

001002 




BNE 

22$ 

YES ! ! 

251 

043244 

042716 

000010 



BIC 

#DPE.(SP) 

RESET DPE ENABLE 

252 

043250 

013737 

001400 

001142 

22$: 

MOV 

RMER2I ,$8DDAT 

GET RECEIVED STATUS 

253 

043256 

042637 

001142 



BIC 

(SP)+.$8DDAT 

RESET DPE IF ENABLED 

254 

043262 

001412 




BEQ 

23$ 

BRANCH IF DPE OK 

255 

043264 

062716 

000004 



ADD 

#4, (SP) 

MOVE SP TO USERS ERROR CALL 

256 

043270 

112776 

000040 

000000 


MOVB 

#40.a(SP) 

WRITE ERROR NUMBER IN CALL 

257 

043276 

162716 

000002 



SUB 

#2, (SP) 

MOVE SP TO ERROR RETURN 

258 

043302 

004736 




JSR 

pc.a(SP)* 

REPORT ERROR 

259 

043304 

162716 

000010 



SUB 

#10. (SP) 

RESTORE SP TO NO ERROR 

260 

043310 




23$: 




CO 1 
262 





.•REPORT 

AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 

263 

043310 

012746 

177777 



MOV 

#-1,-(SP) 

ASSUME WRITE ERRORS ARE ENABLED 

264 

043314 

032737 

004000 

046112 


BIT 

#WLE,78$ 

ARE WRITE ERRORS ENABLED ?? 

265 

043322 

001002 




BNE 

24$ 

YES !! 

266 

043324 

042716 

020000 



BIC 

#UPE.(SP) 

DISABLE UPE ERROR 

267 

043330 

013737 

001346 

001142 

24$: 

MOV 

RMCS2l.$8DDAT 

6ET RECEIVED STATUS 

268 

043336 

042637 

001142 



BIC 

(SP)+.$8DDAT 

RESET UPE IF ENABLED 

269 

043342 

001412 




BEQ 

25$ 

BRANCH IF UPE OK 

270 

043344 

062716 

000004 



ADD 

#4. (SP) 

MOVE SP TO USERS ERROR CALL 

271 

043350 

112776 

000024 

000000 


MOVB 

#24.a(SP> 

WRITE ERROR NUttER IN CALL 

272 

043356 

162716 

000002 



SUB 

#2,(SP) 

MOVE SP TO ERROR RETURN 

273 

043362 

004736 




JSR 

Pc.a(SP)* 

REPORT ERROR AND RETURN 

274 

043364 

162716 

000010 



SUB 

#10. (SP) 

MOVE SP TO NO ERROR 

275 

043370 




25$: 




Cf 0 

277 





.•REPORT 

AN ERROR IF IAE IS SET AND IS NOT ENABLED 

278 

043370 

013746 

046112 



MOV 

78$, -(SP) 

GET IAE ENABLE 

279 

043374 

052716 

175777 



BIS 

# *CIAE,(SP) 

SET ALL OTHER BITS 

280 

043400 

013737 

001352 

001142 


MOV 

RMER1I,$8DDAT 

GET RECEIVED STATUS 

281 

043406 

042637 

001142 



BIC 

(SP)+, $BDDAT 

CLEAR IAE IF ENABLED 

282 

043412 

001412 




BEQ 

26$ 

BRANCH IF IAE IS OK 

283 

043414 

062716 

000004 



ADD 

#4,(SP) 

MOVE SP TO USERS ERROR CALL 

284 

043420 

112776 

000166 

000000 


MOVB 

#166,a(SP> 

WRITE ERROR NUMBER 

285 

043426 

162716 

000002 



SUB 

#2. (SP) 

MOVE SP TO ERROR RETURN 



J 15 


SEO 0191 
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286 043432 

287 043434 

288 043440 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 043440 

30 7 043444 

308 043452 

309 043454 

310 043460 

311 043466 

312 043472 

313 043474 

314 043500 

315 043506 

316 043512 

317 043514 

318 043520 

319 

320 

321 043520 

322 043524 

323 043532 

324 043534 

325 043540 

326 043546 

327 043552 

328 043554 

329 043560 

330 043566 

331 043572 

332 043574 

333 043600 

334 

335 

336 043600 

337 043604 

338 043612 

339 043614 

340 043620 

341 043626 

342 043632 


004736 

162716 000010 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 


26S: 


JSR 

SUB 


PC,8(SP)* 
#10, (SP) 


.•REPORT ERROR AND RETURN 
.•MOVE SP TO NO ERROR 


BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL READ/WRITE ERRORS, I.E., 

RMCS1 - TRE 

RMCS2 - DLT, NEM, MXF 

RMDS - LBT 

RMER1 - AOE 


NOTE: 

NOTE: 

NOTE: 


LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
CYLINDER REGISTER IS WRITTEN 

AOE CANNOT BE SET IF LBT IS NOT ALSO SET 

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDI TONS ABOVE 


177777 

001000 046112 
100000 

001346 001142 
001142 

000004 

000032 OCOOOO 
000002 

000010 


177777 

001000 046112 
004000 

001346 001142 
001142 

000004 

000167 000000 
000002 

000010 


177777 

001000 046112 
001000 

001346 001142 
001142 


.-REPORT AN ERROR IF DLT IS SET 
MOV #-1,-(SP) 

BIT #A0E.78S 

BNE 27$ 

BIC #DLT,(SP> 

27$: MOV RMCS2I ,$BDDAT 

BIC (SP)*,$8DDAT 

BEQ 28$ 

ADD #4.(SP) 

M0V8 #32,8(SP> 

SUB #2,(SP) 

JSR PC.i(SP)* 

SUB #10, (SP) 

28$: 

; REPORT ERROR IF NEM IS SET AND 
MOV #-1,-(SP) 

BIT #AOE, 78$ 

BNE 29$ 

BIC #NEM J .(SP) 

29$: MOV RMCS2I,$BDDAT 

BIC (SP)*,$BDDAT 

BEQ 30$ 

ADD #4,(SP) 

HOVB #167,a(SP> 

SUB 02, (SP) 

jsr pc,a csp)+ 

SUB #10, (SP) 


AND READ/WRITE ERRORS ARE NOT ENABLED 
; ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 

YES 1 1 

RESET' DLT ENABLE 
GET RECEIVED STATUS 
CLEAR DLT IF ENABLED 
BRANCH IF DLT IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


READ/WRITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 

YES ' 1 
DISABLE NEM 
GET RECEIVED STATUS 
CLEAR NEM IF ENABLED 
BRANCH IF NEM IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


.•REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 

# m « . A m IMF CBAAfiC ADC CUADI C IN 


31$: 


MOV #-1.-(SP> 

BIT #A0E,78$ 

BNE 31$ 

BIC #MXF,(SP) 

MOV RMCS2I ,$8DDAT 

BIC (SPH,$BDDAT 

BEQ 32$ 


.-ASSUME ERRORS ARE ENABLED 
.‘ARE DATA ERRORS ENABLED ?? 
* YES 1 1 

•DISABLE MXF ERROR 
;GET RECEIVED STATUS 
.-CLEAR MXF IF ENABLED 
.‘BRANCH IF MXF IS OK 
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SEG 0192 


343 043634 

344 043640 

345 043646 

346 043652 

347 043654 

348 043660 

349 

350 

351 043660 

352 043664 

353 043672 

354 043674 

355 043702 

356 043704 

357 043710 

358 043716 

359 043722 

360 043724 

361 043730 

362 043736 

363 043742 

364 043744 

365 043750 

366 

367 

368 

369 

370 

371 

372 

373 043750 

374 043756 

375 04376C 

376 043766 

377 

378 

379 043766 

380 043772 

381 044000 

382 044002 

383 044006 

384 044014 

385 044020 

386 044022 
38/ 044026 

388 044034 

389 044040 

390 044042 

391 044046 

392 

393 

394 044046 

395 044052 
39/, 044060 

397 044062 

398 044066 

399 044074 


062716 

112776 

162716 

004736 

162716 


012746 

032737 

001404 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


00000* 

000033 

000002 

000010 


177777 

001000 


001000 

001352 

001142 

000004 

000020 

000002 

000010 


032737 

001403 

042737 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 


000000 


046112 


002000 001350 


001142 


000000 


002000 001370 
000200 046112 


177777 

000200 

000400 

001352 

001142 

000004 
000035 
00000 2 

000010 


177777 

000200 

000200 

001352 

001142 


; REPORT ERROR 
NOV 
BIT 
BEQ 
BIT 
BNE 

33$: BIC 

34$: MOV 

BIC 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 


#;.(sp) 

#33.i(SP) 

02, (SP) 
pc.a(SP)* 

#10, (SP) 

IF AOE IS SET AND 
#-1,-(SP) 

#AOE , 78$ 

33$ 

fLBT.RMDSI 

34$ 

#AOE, (SP) 

RMER1I .$8DDAT 
(SP) +.$8DDAT 
35$ 

#4. (SP) 
# 26 ,s(sp) 

02 AS?) 

pc.a(SP)* 

#i6,(SP) 


MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


DATA ERRORS ARE NOT ENABLED 
.•ASSUME DATA ERRORS ARE ENABLED 
;ARE DATA ERRORS EANBLED ?? 

;N0 ! ! 

;IS LBT ALSO SET ?? 

•YES 11 
•DISABLE AOE 
;GET RECEIVED STATUS 
.•CLEAR AOE IF ENABLED 
.‘BRANCH IF AOE IS OK 
.-MOVE SP TO USERS ERROR CALL 
; WRITE ERROR NUMBER 
.•MOVE SP TO ERROR RETURN 
.•REPORT ERROR AND RETURN 
.•MOVE SP TO NO ERROR 


.-BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
.•HEADER ERRORS, I.E., 

; RMER1 - HCRC.HCE.FER 

; RMER2 - BSE.SSE 

.•RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 


046112 


001142 


000000 


fHCI.RMOFI 

36$ 

#HCE.78$ 


.•REPORT AN ERROR IF HCRC IS SET 
MOV #-1,-(SP> 

BIT #HCE,78$ 

BNE 37$ 

BIC #HCRC,(SP) 

37$: MOV RMER1I.$6DDAT 

BIC (SP)*, $BDDAT 

BEQ 38$ 

ADD #4- (SP) 

MOVB #35.a(SP) 

SUB #2,(SP) 

jsr pc.8(sp)+ 

SUB #l6,(SP) 


IS HCI SET ?? 

NO 1 ' 

YES - DISABLE ALL HEADER ERRORS 


AND HEADER ERRORS ARE NOT ENABLED 

.•ASSUME ERRORS ENABLED 

;ARE HEADER ERRORS ENABLED ?? 

• YES 1 ' 

•DISABLE HCRC 
.-GET RECEIVED STATUS 
.-RESET HCRC IF ENABLED 
.•BRANCH IF HCRC IS OK 
.-MOVE SP TO USERS ERROR CALL 
.-WRITE ERROR NUMBER IN CALL 
.‘MOVE SP TO ERROR RETURN 
.•REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


.•REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLtD 

* . a, m rrinAnr mini Fn 


04611 2 


001142 


0-1, -(SP) 
#HCE,78$ 

39$ 

#HCE.(SP) 

RMER1I.$BDDAT 

(SP)+.$BDDAT 


ASSUME ERRORS ENABLED 
ARE ERRORS ENABLED ?? 
YES ' 1 
DISABLE HCE 
GET RECEIVED STATUS 
CLEAR HCE IF ENABLED 


L 



SEQ 0193 
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400 

044100 

001412 



401 

044102 

062716 

000004 

000000 

402 

044106 

112776 

000036 

403 

044114 

162716 

000002 


404 

G44120 

004736 

000010 


405 

044122 

162716 


406 

044126 




407 





408 



177777 


409 

044126 

012746 

046112 

410 

044132 

032737 

000200 

411 

044140 

001002 

000020 


412 

044142 

042716 

001142 

413 

044146 

013737 

001352 

414 

044154 

042637 

001142 


415 

044160 

001412 



416 

0*4162 

062716 

000004 

000000 

417 

044166 

112776 

000037 

418 

044174 

1627(6 

000002 


419 

044200 

004736 



420 

421 

422 

423 

424 

044202 

044206 

162716 

000010 


044206 

012746 

177777 


425 

044212 

032737 

000200 

046112 

426 

044220 

001002 



427 

044222 

042716 

100000 


428 

044226 

013737 

001400 

001142 

429 

044234 

042637 

001142 


430 

044240 

001412 



431 

044242 

062716 

000004 


432 

044246 

112776 

000354 

000000 

433 

044254 

162716 

000002 


434 

044260 

004736 



435 

044262 

162716 

000010 


436 

044266 




437 





438 





439 





440 

044266 

010046 



441 

044270 

013700 

046120 


442 

044274 

016037 

067244 

046112 

443 

444 

445 

446 

447 

044302 

012600 



044304 

032737 

010000 

001370 

448 

044312 

001404 


001370 

449 

044314 

032737 

001000 

450 

044322 

001403 


046112 

451 

452 

453 

454 

455 

044324 

044332 

042737 

000200 


044332 

012746 

177777 


456 

044336 

032737 

000200 

046112 


L 15 
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BEQ 40$ 

ADD #4,(SP> 

MOVB #3o,9(SP) 

SUB #2,(SP/ 

JSR PC.a(SP) ♦ 

SUB #lf,(SP) 

40$: 


BRANCH If HCE IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


.-REPORT ERROR 
MOV 
BIT 
BNE 
BIC 

41$: MOV 

BIC 
BEQ 
ADD 
MOVB 
SUB 
JSR 

sue 


42$: 


If FER IS SET AND 
#-1,-(SP) 
#HCE,78$ 

41$ 

#FER.(SP) 

RMER1I ,$BDDAT 

(SP)+,$BDDAT 

42$ 

#4, (SP) 
#37,a(SP) 

#2. (SP) 
pc.a(SP)* 

#10. (SP) 


HEADER ERRORS ARE NOT ENABLED 

.-ASSUME FER IS ENABLED 

.-ARE HEADER ERRORS ENABLED ?? 

• YFS 1 1 

•DISABLE FER 

.-GET RECEIVED STATUS 

.-RESET FER IF ENABLED 

; BRANCH IF FER OK 

;MOVE SP TO USERS ERROR CALL 

.-WRITE ERROR NUMBER IN CALL 

.-MOVE SP TO ERROR RFTURN 

.-REPORT ERROR AND RETURN 

.-MOVE SP TO NO ERROR 


; REPORT ERROR 
MOV 
BIT 
BNE 
BIC 

43$: NOV 

BIC 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 


44$: 


IF BSE IS SET AND 
#-1.-(S?) 
#HCE,78$ 

43$ 

#8SE, (SP) 

RMER2I .SBDDAT 
(SP)*. SBDDAT 
44$ 

#4, (SP) 
#3$4,a(SP> 
#2«vSP) 
PC.i(SP)+ 

#10. (SP) 


HEADER ERRORS ARE NOT ENABLED 
.-ASSUME ERRORS ENABLED 
.-ARE THEY ENABLED ?? 

-YES 1 1 

•DISABLE BSE 

.-GET RECEIVED STATUS 

.-CLEAR BSE IF ENABLED 

.-BRANCH IF BSE OK 

;NOVE SP TO USERS ERROR CALL 

; WRITE ERROR NUMBER 

.-MOVE SP TO ERROR RETURN 

.-REPORT ERROR AND RETURN 

.-MOVE SP TO NO ERROR 


;HCE IS USED AS THE ENABLING BIT FOR DETECTING SSE. SO REESTABLISH ENTRY 
.-FROM THE FUNCTION CODE TABLE. TO CHECK THE •’SSE" BIT 


MOV RO.-(SP) 

MOV 81S.R0 

MOV FNCDTB(R0).78$ 

MOV (SP) ♦.RO 


,-PUSH RO ON STACK 
GET FUNCTION CODE 
STORE FUNCTION TABLE ENTRY 
.-POP STACK INTO RO 


;IF SKIP SECTOR ERROR INHIBIT (SSEI) IS SET OR FORMAT 16 (FMT) IS CLEAR. 
.-RESET THE ENABLING BIT (HCE>. OTHERWISE LEAVE ENABLING BIT (HCE) SE.. 


BIT 
BEQ 
BIT 
BEQ 

45$: BIC 
46$: 


#FMT16.RH0FI 

45$ 

#SSEI.RMOFI 

46$ 

#HCE,78$ 


18 BIT FORMAT MODE ? 
BR IF YES 
IS SSEI SET ? 

BR IF NO 

DISABLE HEADER ERROR 


.-REPORT ERROR 
MOV 
BIT 


IF SSE IS SET 
#-1,-(SP> 
#HCE,78$ 


AND HEADER ERROR IS NOT ENABLED 
.-ASSUME ERRORS ENABLED 
; IS HCE ENABLED ? 
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SEQ 0194 


457 044344 

458 044346 

459 044352 

460 044360 

461 044364 

462 044366 

463 044372 

464 044400 

465 044404 

466 044406 

467 044412 

468 

469 

470 

47 1 

472 

473 

474 

475 

476 

477 

478 044412 

479 044416 

480 044424 

481 044426 

482 044432 

483 044440 

484 044444 

485 044446 

486 044452 

48 7 044460 

488 044464 

489 044466 

490 044472 

491 

492 

493 044472 

494 044476 

495 0445C4 

496 044506 

497 044512 

498 044520 

499 044524 

500 044526 

501 044532 

502 044540 

503 044544 

504 044546 

505 044552 

506 

507 

508 

509 

510 

511 044552 

512 044556 

513 044564 


001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


000040 

001400 

001142 

000004 

000063 

000002 

000010 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


001142 


000000 


47$ 

#SSE, (SP) 
RMER2I.SBDDAT 
(SP)*,$BDDAT 
48$ 

#4. (SP) 
#63.8(SP) 

#Z, (SP) 
PC,8(SP)* 

#10, (SP) 


YES ! ! 

DISABLE SSE 

GET RECIEVED STATUS 

CLEAR SSE IF NOT VALID FOR FUNCTION 

BRANCH IF SSE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 


177777 

000100 

000400 

001346 

001142 

000004 

C00027 

000002 

000010 


177777 

000100 

100000 

001352 

001142 

000004 

000030 

000002 

000010 


BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS, I.E., 

RMCS2 - MDPE 
RMER1 - DCK, ECH 


NOTE: 


ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
DCK IS SET. 


046112 


001142 


000000 


REPORT ERROR IF MDPE IS SET AND 
MOV #-1.-(SP) 

BIT #ECH,78$ 

BNE 49$ 

81 C #MDPE,(SP) 

9$: MOV RMCS2I ,$BDDAT 

BIC (SP) +.$BDDAT 

BEQ 50$ 

#4,(SP) 

MUVB #27.8(SP) 

SUB #2, (SP) 

JSR PC.a(SP)* 

SUB #10, (SP) 


IS NOT ENABLED 
ASSUME ENABLED 

ARE DATA FIELD ERRORS ENABLED ?? 
YES 1 ' 

DISBALE MDPE 
GET RECEIVED STATUS 
CLEAR MDPE IF ENABLED 
BRANCH IF MDPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


046112 


001142 


000000 


; REPORT ERROR IF DCK IS SET AND 
MOV #-1,-(SP) 

BIT #ECH,78$ 

BNE 51$ 

BIC #DCK, (SP) 

51$: MOV RMERli ,$BDDAT 

BIC (SP) ♦.iBDDAT 
BEQ 52$ 

ADD #4 .(SP) 

MOVB #30,8 (SP) 

SUB #2,(SP) 

JSR PC,8(SP)+ 

SUB #10, (SP) 


DATA FIELD ERRORS ARE NOT ENABLED 
; ASSUME ENABLED 
;ARE THEY ENABLED ?? 

•YES ' 1 
; DISABLE DCK 
; GET RECEIVED STATUS 
; CLEAR DCK IF ENABLED 
.•BRANCH IF DCK IS C* 

;M0VE SP TO USERS ERROR CALL 
; WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO ERROR RETURN 
.‘REPORT ERROR AND RETURN 
.-MOVE SP TO NO ERROR 


012746 

032737 

001410 


177777 

000100 


REPORT ERROR IF ECH IS SET AND, 

DATA FIELD ERRORS ARE NOT ENABLED, OR 
ECI IS SET, OR 


046112 


DCK 

IS NOT SET. 

.•ASSUME ENABLED 

MOV 

#-1,-(SP) 

BIT 

#ECH,78$ 

.-ARE ERRORS ENABLED ?? 

BEQ 

53$ 

;N0 ! ! 
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N 15 


514 

044566 

032737 

004000 

001370 


BIT 

AECI.RMOF I 

IS EC I SET ?? 

515 

044574 

001004 




BNF 

53$ 

YES ! ) 

516 

044576 

032737 

100000 

001352 


BIT 

JDCK.RMER1I 

IS DCK ALSO SET ?? 

517 

044604 

001002 




BNE 

54$ 

YES ! ! 

518 

044606 

042716 

000100 


53$: 

BIC 

#ECH.(SP) 

DISABLE ECH 

519 

044612 

013737 

001352 

001142 

54$: 

MOV 

RMER1I .SBDDAT 

GET RECEIVED STATUS 

520 

044620 

042637 

001142 



BIC 

(SPH, SBDDAT 

CLEAR ECH IF ENABLED 

521 

044624 

001412 




BEQ 

55$ 

BRANCH IF ECH IS OK 

522 

044626 

062716 

000004 



ADD 

#4, (SP) 

MOVE SP 10 USERS ERROR CALL 

523 

044632 

112776 

000031 

000000 


MOVB 

#3i.a(SP) 

WRITE ERROR NUMBER IN CALL 

524 

044640 

162716 

000002 



SUB 

#2. (SP) 

MOVE SP 70 ERROR RETURN 

525 

044644 

004736 




JSR 

pc.a(sp)* 

REPORT ERROR AND RETURN 

526 

044646 

162716 

000010 



SUB 

#i6.(sp> 

MOVE SP TO NO ERROR 

527 

044652 




55$: 





528 

529 

530 

531 

532 

533 044652 

534 044660 

535 044662 

536 

537 

538 044666 

539 044674 

540 044676 

541 044704 

542 044706 

543 044712 

544 044720 

545 044724 

546 044730 

547 044732 

548 044736 

549 

550 

551 044740 

552 044746 

553 044754 

554 044760 

555 

556 044766 

557 044774 

558 044776 

559 

560 045004 

561 045012 

562 045014 

563 045022 

564 045026 

565 045034 

566 045040 

567 045042 

568 045046 

569 

570 


022737 

103402 

000137 


013737 

001421 

032737 

001015 

062716 

112776 

005037 

162716 

004736 

162716 

000240 


313737 

163737 

006337 

063737 

032737 

001403 

013737 

023737 

001416 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


000030 

046064 

001340 

040000 

000004 

000015 

001140 

000002 

000010 


001340 

001414 

001140 

001416 

000010 

001416 

001140 

001342 

000004 

000016 

000002 

000010 


046120 

001142 

001336 

000000 


;;*****************t*****t *************************************** 

.-"PERFORM THE REMAINING ERROR CHECKS FOR DATA TRANSFER COMMANDS 

;;*********************** t******ttttfr*tttt*tt*t**t*************** 

CMP ^SEARCH. 81$ 

BLO 56$ 

JMP 75$ 

;REPORT ERROR IF RMUC NOT ZERO 
56$: MOV RMUCI.$8DDAT 

BEQ 57$ 

BIT fTRE.RMCSII 

BNE 57$ 

ADD #4.(S?) 

M0V8 #15.a(SP) 

CLR $GDDAT 

SUB #2,(SP) 

jsr pc.b(sp)* 

sub *io.(sp> 

NOP 


UAS DATA TRANSFERRED 
BR IF YES 
NO - EXIT 


AND TRE IS ZERO 
WORD COUNT ZERO?? 

YES 

TRANSFER ERROR DETECTED?? 
YES!! 

ERROR NUMBER 
GOOD DATA FOR TYPEOUT 
MOVE SP TO RETURN FOR ERROR 
REPORT WORD COUNT NOT ZERO 
RESTORE (SP) 


001140 

001140 

001140 

001346 

001140 

001342 

001142 

000000 


REPORT ERROR IF RMBA IS NOT CORRECT 


57$: MOV RMWCI.$GDDAT 

SUB RMWCO.SGDDAT 

ASL SGDDAT 

ADD RMBAO. SGDDAT 

BIT #8AI,RNCS2I 

BEQ 58$ 

MOV RMBAO. SGDDAT 

58$: CMP SGDDAT. RMBAI 

BEQ 59$ 

MOV RMBAI .SBDDAT 

ADD #4,(SP) 

M0V8 *16.a(SP) 

SUB #2, (SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 

HOP 


;GET WORD COUNT AT END OF TRANSFER AND 
.'SUBTRACT STARTING WORD COUNT. 

;* 2 

;ADD STARTING BUS ADDRESS 

;WAS BUS ADDRESS INHIBIT (BAI) SET ?? 

•NO 1 1 

•ADDRESS SHOULD NOT HAVE CHANGED 

.-BUS ADDRESS OK?? 

'YES' ' 

•BAD DATA FOR TYPEOUT 
.•ERROR NUMBER 

.'MOVE SP TO RETURN FOR ERROR 
.'REPORT UNEXPECTED ADDRESS 
.•RESTORE (SP) 


; COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 
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SEQ 0196 


571 045050 

5 72 045052 

573 045056 

574 

575 045062 

576 045066 

577 045074 

578 045076 

579 

580 045102 

581 045106 

582 045112 

583 045114 

584 

585 

586 

587 045116 

588 045124 

589 045132 

590 045140 

591 045146 

592 045152 

593 

594 045*56 

595 045164 

596 045170 

597 045176 

598 

599 045202 

600 045210 

601 

602 045212 

603 045220 

604 045222 

605 045226 

606 

607 045234 

608 045242 

609 045244 

610 045250 

611 045256 

612 

613 045260 

614 045266 

615 045270 

616 045274 

617 045302 

618 045304 

619 

620 
621 

622 045306 

623 045512 

624 045320 

625 

626 045326 

627 045334 


005046 

013746 

163716 

012746 

032737 

001402 

062716 

005266 

161666 

003373 

022626 


013737 

013737 

013737 

013737 

000337 

005237 

042737 

000337 

042737 

062637 

032737 

001 .11 

023727 

103417 

005237 

162737 

023727 

103406 

005237 

162737 

000766 

023737 

103407 

005237 

163737 

000766 

000240 


001340 

001414 

000400 

000002 

000002 

000004 

000002 


001446 

001420 

001420 

001334 

046122 

046122 

000377 

046114 

177400 

046116 


046114 

000040 


046114 

000037 


046112 

046122 


001412 


046112 

046114 

046116 

046122 


046114 

046116 


001000 001444 


046116 000040 


005037 001140 
013737 001370 
042737 176777 

032737 001000 
001420 


-(SP) 

RMWCI.-(SP) 
RMWCO, (SP) 

#256.. -(SP) 
#8IT1 .RMCS10 
60S 

#2. (SP) 

4(SP> 

(SP),2(SP> 

60$ 

(SP)-MSP)* 


NUMBER OF SECTORS TRANSFERRED 

GET WORD COUNT AT END OF TRANSFER AND 

SUBTRACT STARTING WORD COUNT. 

ASSUME 256. WORDS PER SECTOR 
HEADER ft DATA COMMAND ?? 

NO ! ! 

CHANGE TO 258. WORDS PER SECTOR 

INCREMENT SECTOR COUNT 
SUBTRACT ONE SECTOR'S WORTH 
CONTINUE IF NOT DONE 
RESTORE STACK 


.•COMPUTE EXPECTED SECTOR. TRACK AND CYLINDER ADDRESS FROM 
.•NUMBER OF SECTORS 

MOV RMDC0.78S .-STORE ORIGINAL CYLINDER 


046116 


046116 000037 


046116 


046114 046122 


046114 


RMDC0.78S 

RMDA0.79S 

RMDA0.80S 

LSTRK.82S 

82$ 

82$ 

#*CTADMSK,79$ 

79$ 

#*CSADMSK,80$ 
(SP)+. 80$ 

fSSEI.RMOFO 

61$ 

80$. #32. 

63$ 

79$ 

#32., 80$ 

80$.#31 . 

63$ 

79$ 

#31., 80$ 

61$ 

79$, 82$ 

64$ 

?m 

82$. 79$ 

63$ 


STORE ORIGINAL TRACK 
STORE ORIGINAL SECTOR 
STORE LAST TRACK. 

GET TRACK ADDRESS TO LO BYTE AND 
INCREMENT TO GET TOTL # OF TRACKS. 

SAVE TRACK ADDRESS BITS AND 
GET TRACK ADDRESS TO LO BYTE. 

SAVE SECTOR ADDRESS BITS 


WAS SSEI SET ? 

NO ! ! 

SECTOR OVEFLOWED?? 
NO!! 

INCREMENT TRACK 
ADJUST SECTOR 

SECTOR OVERFLOWED ? 
NO 1 1 

INCREMENT TRACK 
ADJUST SECTOR 
TRY AGAIN 

TRACK OVERFLOWED?? 
NO 1 1 

INCREMENT CYLINDER 
ADJUST TRACK 
TRY AGAIN 


001142 

001142 

001444 


.•REPORT ERROR IF "SSEI" IS SET AFTER TRACK SWITCHING OCCURED 
.-THRU DATA TRANSFER _ 

64$: CLR $GDDAT .-SETUP EXPECTED SSEI = 0 

MOV RM0FI.S6DDAT ;GET REC1EVED DATA AND 

BIC #*CSS€l,$8DDAT .-SAVE SSEI BIT FOR COMPARE. 


#SSEi .RMOFO 
66 $ 


;WAS SSEI SET BEFORE DATA TRANSFER ? 
;N0 


I 10 


SEQ 0197 
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628 045336 

629 045344 

630 045346 

631 045352 

632 045354 

633 045360 

634 045366 


123737 

001411 

005737 

001430 

062716 

112776 

000414 


001421 001345 


001142 

000004 

000225 


000000 


RMDAO+1 .RMDAI+1 
65$ 

$8DDAT 

68 $ 

#4- (SP) 
#225,a(SP) 

67$ 


DID TRACK SWITCH OCCUR ? 
NO 

IS SSEI STILL SET ? 

NO 

POINT TO ERROR 
DEFINE ERROR NUMBER 


; REPORT ERROR IF 


IS INCORRECT 


637 045370 

012737 

001000 

001140 

65$: 

MOV 

#SSEI ,$GDDAT 

SETUP EXPECTED SSEI = 1 

638 045376 

023737 

001140 

001142 

66$: 

CMP 

$GDDAT,$BDDAT 

IS SSEI CORRECT ? 

639 045404 

001413 




BEG 

68$ 

YES 

640 045406 

062716 

000004 



ADD 

#4, (SP) 

POINT TO ERROR 

641 045412 

112776 

000226 

000000 


MOVB 

#2$ 6,3(SP) 

DEFINE ERROR NUMBER 

642 045420 

162716 

000002 


67$: 

SUB 

#2, (SP) 

ADJUST RETURN TO ERROR 

643 045424 

004736 




JSR 

pc.a(sp)* 

REPORT ERROR 

644 045426 

162716 

000010 



SUB 

#10. (SP) 

RESTORE (SP) 

645 045432 

000240 




NOP 




646 

647 

648 045434 

649 045440 

650 045446 

651 045450 

652 045456 

653 045460 

654 045466 

655 045474 

656 045502 

657 045510 

658 045512 

659 045516 

660 045524 

661 045530 

662 045532 

663 045536 

664 

665 

666 045540 

667 045544 

668 045552 

669 045554 

670 045562 

671 045564 

672 045570 

673 045572 

674 045576 

675 045600 

676 045606 

677 045610 

678 045614 

679 045616 

680 045624 

681 045630 

682 045636 

683 045644 

684 045652 


005037 
023727 
10140 7 
032737 
001003 
012737 
013737 
042737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 


005037 

032737 

001031 

023727 

101425 

005737 

001012 

005737 

001007 

032737 

001413 

005737 

001410 

012737 

005037 

012737 

013737 

042737 

023737 


001140 

046112 


001060 


002000 001352 


002000 

001350 

175777 

001140 

000004 

000017 

000002 

000010 


001140 

002000 


001140 

001142 

001142 

001142 


000000 


001352 


.•REPORT ERROR 
68$: CLR 

CMP 
BLOS 
BIT 
BNE 
MOV 

69$: MOV 

BIC 
CMP 
BEG 
ADD 
M0V8 
SUB 
JSR 
SUB 
NOP 

;REPORT ERROR 
70$: CLR 


IF "LBT" IS NOT 
$GDDAT 
78$. #560. 

69$ 

#IAE,RMER1I 

69$ 

#LBT.$GDDAT 

RMDSI.R8DDAT 

#*CL8T,$8DDAT 

$GDDAT.$8DDAT 

70$ 

#4.(SP) 

#17,a(SP) 

#2.(SP) 

pc.acsp)* 

#10. (SP) 


CORRECT 

; SET GOOD DATA FOR LBT ? 0 
; SHOULD LBT BE SET?? 

;N0! ! 

•WAS 1AE SET '>'> 

•YES - LBT SHOULD NOT BE SET 
.-SET GOOD DATA FOR LBT = 1 
;BAD DATA FOR TYPEOUT 

; I S LBT CORRECT?? 

; YES! ! 

.‘ERROR NUMBER 

.•MOVE SP TO RETURN FOR ERROR 
.-REPORT LBT IS WRONG 
.•RESTORE (SP) 


IS INCORRECT 


046112 001060 

046114 

046116 

000010 046120 


$6DDAT .-SET FOR AOE = 0 

#IAE.RMER1I ;WAS "IAE" DETECTED?? 

72$ ; YES-"AOE" SHOULD BE ZERO 

78$. #560. .-SHOULD AOE BE . cr T?? 

72$ .-NO! > 

79$ .-MAYBE 

71$ ; YES 

80$ 

71$ *YES 11 

#F2. 81$ ;WAS THIS READOR WRITE CHECK ?? 


001340 

001000 

046114 

000001 

001352 

176777 

001140 


001140 

046116 

001142 

001142 

001142 


72$ 

RMWCI 

72$ 

#AOE.$GDDAT 

79$ 

#1,80$ 

RMER1I,$BDDAT 

#*CAOE,$BDDAT 

$GDDAT,$BDDAT 


NO !! 

WAS ALL DATA TRANSFERRED ?? 
YES 1 1 

SET FOR AOE = 1 
CLEAR EXPECTED TRACK 
EXPECT SECTOR * 1 
BAD DATA FOR TYPEOUT 

IS AOE CORRECTY?? 
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685 04566C 

686 045662 

687 045666 

688 045674 

689 045700 

690 045702 

691 045706 

692 
n93 

694 045710 

695 045716 
6% 045720 

697 045726 

698 045732 

699 045740 

700 045746 

701 045754 

702 045756 

703 045762 

704 045770 

705 045774 

706 045776 

707 046002 

708 

709 

710 046004 

711 046012 

712 046020 

713 046026 

714 046034 

715 046036 

716 046042 

717 046050 

718 046054 

719 046056 

720 046062 

721 

722 046064 

723 046070 

724 046074 

725 046076 

726 046102 

727 046104 

728 046110 

729 

730 046112 

731 046114 

732 046116 

733 046120 

734 046122 


001413 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001062 

013737 

000337 

113737 

013737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


013737 

042737 

013737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

062716 

105776 

001403 

062716 

000402 

162716 

000207 

000000 

000000 

000000 

000000 

000000 


000004 

000020 

000002 

000010 


000000 


BEQ 

73$ 

;Y£S!! 

ADD 

#4.(SP) 


MOVB 

#20.a(SP) 

.'ERROR NUMBER 

SUB 

#2, (SP> 

;MOVE SP TO RETURN FOR ERROR 

JSR 

pc.a(sp)+ 

.'REPORT AOE IS WRONG 

SUB 

NOP 

#10, (SP) 

.'RESTORE (SP) 


002000 

001352 

: REPORT 
*3$: 

ERROR 

BIT 

BNE 

MOV 

046114 

001140 


001140 

046116 

001140 


SWAB 

MOVB 

001344 

001142 


MOV 

001140 

001142 


CMP 

000004 

000021 

000000 


BEQ 

ADD 

MOVB 

000002 

000010 



SUB 

JSR 

SUB 

NOP 


IF RMDA IS NOT 
#IAE.RMER1I 
75$ 

79$,$GDDAT 

$GDDAT 

80$,$GDDAT 

RMDAI ,$BDDAT 

$GDDAT,$BDDAT 

74$ 

#4, (SP) 
#2i,a<SP) 

#2, (SP) 

pc.a<sp)+ 

#10. (SP) 


CORRECT 

WAS THERE AN IAE ERROR ?? 
YES - DONT CHECK RMDA.RMDC 
SETUP EXPECTED DISK ADDRESS 


.•SETUP RECEIVED DISK ADDRESS 
.•COMPARE EXPECTED t RECEIVED 
.‘BRANCH I." EQUAL t 

.'ERROR NUMBER 

.-MOVE SP TO RETURN FOR ERROR 
.-REPORT BAD DISK ADDRESS 
.'RESTORE (SP) 


046112 

176000 

001372 

001140 

000004 

000022 

000002 

000010 


001140 

001140 

001142 

001142 


000000 


REPORT ERROR IF RMDC IS INCORRECT 


Ut: MOV 78$.$GDDAT 

BIC #*C1777,$GDDAT 

MOV RMDCI ,$8DDAT 

CMP $GDDAT.$SDDAT 

BEQ 75$ 

ADD #4.(SP) 

MOVB #?2.a(SP> 

SUB #2,(SP) 

jsr Pc.a(SP)+ 

sue #io.(SP) 

NOP 


.'SETUP EXPECTED CYLINDER 

.-SETUP RECEIVED CYLINDER 
.•COMPARE CYLINDERS 
.•BRANCH IF EQUAL 

.-ERROR NUMBER 

.'MOVE SP TO RETURN FOR ERROR 
; REPORT BAD CYLINDER 
; RESTORE (SP) 


000004 

75$: 

ADD 

#4,(SP) 

.'MOVE (SP) TO ERROR CALL 

000000 


TSTB 

BEQ 

ADD 

BR 

SUB 

RTS 

a(sp> 

76$ 

#4.(SP> 

77i 

#4 ,(SP) 

PC 

.-WAS ERROR FOUND?? 

000004 


.'MOVE (SP) TO ERROR RETURN 

000004 

76$: 

77$: 

.'MOVE (SP) TO NO ERROR RETURN 


78$: 

.WORD 

0 

.•CYLINDER 


79$: 

.WORD 

0 

.'TRACK 


30$: 

.WORD 

0 

.•SECTOR 


31$: 

.WORD 

0 

.'FUNCTION CODE 


82$: 

.WORD 

0 

.'TOTAL # OF TRACKS = LAST TRACK *1 



I 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

i" 

13 

14 

15 

16 

17 

18 

19 

20 

21 046124 

22 

23 

24 046124 

25 046132 

26 046140 

27 046144 

28 046152 

29 

30 

31 

32 046160 

33 046164 

34 046170 

35 

36 

37 046174 

38 046200 

39 046202 

40 046210 

41 046214 

42 046220 

43 046226 

44 046232 

45 046234 

46 046240 

47 046242 

48 

49 

50 046242 

51 046246 

52 

53 046250 

54 046256 

55 046262 

56 046266 

57 046274 
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.SBTTL COMPOSITE ERROR CHECK SUBROUTINE 

THIS SUBROUTINE CHECKS THE STORED CONTENTS 0* RMER1 AND 
RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
THE MASKS ARE APPLIED. 


CALL: 

( 1 ) 


JSR 

.WORD 

.WORD 

BR 

NO P 

ERROR 

JSR 


PC.CMPErtHSTS 


pc.acsp)* 


MASK FOR ERROR REGISTER 1 

MASK FOR ERROR REGISTER 2 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 


013737 001352 001176 
04763? 000000 001176 
062716 000002 
013737 001400 001200 
047637 000000 001200 


;NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
;BE ZERO 

CMPERRSTS: 

;MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 


062716 

105076 

162716 


005737 

001420 

013737 

005037 

062716 

112*76 

162716 

004736 

162716 

000240 


000006 

000000 

000004 


001176 

001176 001142 

001140 

000004 

000066 000000 
000002 

000010 


RMER1I.STMP1 
a(SP),STMP1 
#2.(SP) 
RMER2I.STMP2 
a*SP) ,*TMP2 


.-CLEAR USER'S ERROR CALL 
ADD #6. (SP) 

CLRB a<SP) 

SUB #4,<SP> 


STORE RMER1 AT TEMP STORAGE 
MASK RMER1 
MOVE SP TO NEXT MASK 
STORE RMER2 AT TEMP STORAGE 
MASK RMER2 


MOVE SP TO USER'S ERROR CALL 

CLEAR ERROR NUMBER 

LEAVE SP AT NO ERROR RETURN 


;SEE IF THERE WERE ANY ERRORS IN RMER1 , I.E.. STMP1 


TST STMP1 

BEG IS 

MOV STMP1 .S6DDAT 
CLR SGDDAT 

ADD #4,(SP) 

MOVB #66.a(SP> 

SUB 02, (SP) 

jsr pc.a(sp)* 

SUB #10, (SP) 

NOP 


ANY ERRORS TO REPORT?? 

NO 1 ' 

RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS FOR TYPEOUT 
MOVE SP TO USER'S ERROR CALL 
CORRECTABLE DATA CHECK ERROR # 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


005737 001200 
001420 

013737 001200 001142 
005037 001140 
062716 000004 
112776 000067 000000 
162716 000002 


;SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 (STMP2) 
TST STMP2 ;ANY ERRORS IN RMER2? 

BEQ 2$ ;N0! ! 


MOV $TMP2,SBDDAT 

CLR SGDDAT 

ADD #4, (SP) 

MOVB #67,a<S P) 

sue #2, (SP) 


; RECEIVED STATUS FOR TYPEOUT 
.•EXPECTED STATUS FOR TYPEOUT 
.-MOVE SP TO USER'S ERROR CALL 
.’WRITE ERROR NUMBER IN USER’S CALL 
;MOVE SP TO RETURN FOR ERROR 


f 16 


SEQ 0200 
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1 


.SBTTL DEVICE SELECT SUBROUTINE 

; THIS SUBROUTINE SELECTS THE DEVICE. GETTING THE DEVICE NUMBER FROM THE 
; TEST QUEUE. 


.-CALL: 
; <1 > 

; ( 2 ) 

; (3) 
;( 4 > 


JSR 

BR 

NOP 

ERROR 


PC.DEVSEL 

■>? 


046336 




DEVSEL: 






.CLEAR USER’S ERROR CALL 

046336 

062716 

000004 


ADD 

#4, (SP) 

046342 

105076 

000000 


CLRB 

a(SP) 

046346 

162716 

000004 


SUB 

#4 , (SP) 





.'SAVE USER’S INFORMATION AND SE 1 

0463S2 

013746 

000004 


MOV 

ERRVEC. -(SP) 

046356 

013746 

000006 


MOV 

ERRVEC*2.-(SP) 

046362 

010046 



MOV 

RO.-(SP) 

046364 

010146 



MOV 

RI.-(SP) 

046366 

012737 

046506 

000004 

MOV 

#2$. ERRVEC 

046374 

012737 

000300 

000006 

NOV 

#PR6.ERRVEC*2 

046402 

013700 

001276 


MOV 

SBASE.RO 

046406 

013701 

001466 


MOV 

TSTQUE.R1 





.•SELECT DEVICE 

AND VERIFY THAT 1 

046412 

111160 

000010 


N0V8 

(R1).RMCS2(R0) 

046416 

016037 

000000 

001176 

MOV 

RMCSl (RO).STMPI 

046424 

016037 

000010 

001174 

NOV 

RMCS2(R0).STMP0 

046432 

032737 

010000 

001174 

BIT 

JNED.STMPO 

046440 

001407 



BEQ 

IS 

046442 

062766 

000004 

000010 

ADD 

#4.10(SP) 

046450 

112776 

000111 

000010 

M0V8 

fiii.aiO(SP) 

046456 

000422 



BR 

3S 

046460 

032737 

004000 

001176 

IS: BIT 

fDVA.STMPI 

046466 

001021 



BNE 

4S 

046470 

062766 

000004 

000010 

ADD 

#4.10(SP) 

046476 

112776 

000112 

000010 

N0V8 

#ii2,aiO(SP) 

046504 

000407 



BR 

3S 





.HANDLE BUS TIMEOUT 

046506 

022626 



2S: CMP 

(SP)+,(SP)* 

046510 

062766 

000004 

000010 

ADD 

#4.10(SP) 

046516 

112776 

000113 

000010 

H0V8 

#ii3.aiO(SP) 

046524 

162766 

000002 

000010 

3$: SUB 

#2.10(SP) 





.•RESTORE USERS 

DATA AND RETURN 

046532 




4S: 


046532 

012601 



MOV 

(SPH.R1 

046534 

012600 



MOV 

(SPH.RO 

046536 

012637 

000006 


MOV 

(SP)*. ERRVEC+2 


RETURN IF NO ERROR 

RETURN IF ERROR 

ERROR DEFINED BY SUBROUTINE 


MOVE SP TO USER’S ERROR 
CLEAR LOW ORDER BYTE OF CALL 
MOVE SP BACK 


; .'PUSH ERRVEC ON STACK 

;;PUSH ERRVEC *2 ON STACK 
; ; PUSH RO ON STACK 
; ; PUSH R1 ON STACK 
.-SETUP FOR BUS TIMEOUT 

;R0 = UNIBUS ADDRESS 

;R1 POINTS TO DEVICE NUMBER 


.•WRITE UNIT SELECT BITS 


;IS DEVICE NONEXISTENT ? 

•NO* * 

•MOVE SP TO USERS ERROR CALL 
.-WRITE ERROR NUMBER 


IS DEVICE AVAILABLE ? 

YES 1 1 

MOVE ‘ SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 


ADJUST SP 

MOVE SP TO USERS ERROR CALL 
WRITE BUS TIMEOUT ERROR NUMBER 
ADJUST RETURN TO ’NOP* PRECEDING 
THE ERROR CALL 


; ; POP STACK INTO R1 
;;P0P STACK INTO RO 

;;POP STACK INTO ERRVEC+2 
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1 16 


SEQ 0203 


.S8TTL SEEK STATUS CHECK SUBROUTINE 


THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE * ‘ERROR’ * TRAP 
OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 


CALL: 

(1) 


JSR 

BR 

NOP 

ERROR 


PC.SEKSTS 

999 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 






; JSR 

PC.a(SP)* GO BACK TO SUB FOR MORE ERROR 





* ??? 

RETURN HERE IF NO MORE ERRORS 

046550 




SEKSTS: 







.’CLEAR USERS’ 

ERROR CALL 


046550 

000240 



NOP 



046552 

062716 

000004 


ADD 

#4, (SP) 

MOVE (SP) TO ERROR CALL 

046556 

105076 

000000 


CLR8 

a<SP) 

CLEAR ERROR NUMBER 

046562 

162716 

000004 


SUB 

#4 ,<SP) 

MOVE (SP) TO NO ERROR RETURN 

046566 

005037 

050026 


CLR 

20$ 

CLEAR ERROR FLAGS 





.■TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 





.’LOCAL REGISTERS. I.E.. "PAR*’ = 

1 AND 'DPE" = 0 

046572 

032737 

000010 

001352 

BIT 

#PAA,RMER1I 

WAS PARITY ERROR DETECTED?? 

046600 

001424 



8EQ 

1$ 

NO!! 

046602 

032737 

000010 

001400 

BIT 

#DPE,RMER2I 

WAS IT DUE TO CONTROL BUS?? 

046610 

001020 



BNE 

1$ 

NOT SURE!! 





.‘REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL 

046612 

005037 

001140 


CLR 

SGDDAT 

■EXPECTED STATUS 

046616 

013737 

001352 

001142 

MOV 

RMER1I .SBDDAT .-RECEIVED STATUS 

046624 

062716 

000004 


ADD 

#4 .(SP) .-MOVE STACK TO USER'S ERROR 

046630 

112776 

000050 

000000 

M0V8 

#50.a(S P) .’ERROR #50 

046636 

162716 

000002 


SUB 

02. (SP) .’MOVE SP TO RETURN FOR ERROR 

046642 

004736 



JSR 

PC.a<SP>+ 


046644 

162716 

000010 


SUB 

#10. (SP) .’RESTORE STACK 

046650 

000447 



BR 

3$ ;IAE SHOULD BE ZERO 


CHECKS 


DETERMINE THE VALUE OF "IAE" STATUS BASED ON TRACK. SECTOR. CYLINDER 
AND THE STATUS OF "SSEI“ BIT DURING A SEEK OPERATION. ALSO. SET "SKI* 






;IF 

CYLINDER ADDRESS IS TOO LARGE. 

046652 

012737 

002000 

001140 

1$: 

MOV 

#IAE, SGDDAT 

.•SETUP FOR IAE * 1 

046660 

052737 

040000 

050026 


BIS 

#SKJ.20$ 

.•SETUP FOR SKI * 1 

046666 

023727 

001446 

001060 


CMP 

RMDCO,#560. 

.•GREATER THAN LAST CYLINDER 

046674 

101035 




BHI 

3$ 

;YES - CYLINDER IS INVALID 

046676 

042737 

040000 

050026 


BIC 

#SKJ.20$ 

.’CLEAR SKI ERROR FLAG 

046704 

123737 

001421 

001335 


CMP8 

RMDAO+1 .LSTRK+1 

; GREATER THAN LAST TRACK ? 

046712 

101026 




BHI 

3$ 

;YES - TRACK IS INVALID 

046714 

123727 

001420 

000035 


CMP8 

RMDA0.#29. 

; SECTOR > 29. ? 


J 16 


SEQ 0204 


IZRNFAO RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PA6E 28-1 
SEEK STATUS CHECK SUBROUTINE 


58 046722 

59 046724 

60 046732 

61 046734 

62 046742 

63 046744 

64 046752 

65 046754 

66 046762 

67 

68 046764 

69 

70 

71 046770 

72 046776 

73 047004 

74 047012 

75 047014 

76 047022 

77 047024 

78 

79 047024 

80 047030 

81 047036 

82 047042 

83 047044 

84 047050 

85 047052 

86 

87 

88 

89 

90 047052 

91 047060 

92 047062 

93 047066 

94 047074 

95 047100 

96 047106 

97 047114 

98 047116 

99 047124 

100 047130 

101 047132 

102 047136 

103 

104 047140 

105 047146 

106 047154 

107 047162 

108 047170 

109 

110 

111 047172 

112 047200 

113 047202 

114 047206 


101420 

032737 

001416 

123727 

101410 

032737 

001406 

123727 

101002 


010000 001444 
001420 000036 
001 OOC 001444 
001420 000037 


005037 001140 


013737 

042737 

023737 

001004 

042737 

000413 


062716 

112776 

162716 

004736 

162716 

000240 


032737 

001427 

005037 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

013737 

042737 

001417 


032737 

001032 

062716 

112776 


001352 

175777 

001140 


001142 

001142 

001142 


040000 050026 


000004 

000051 

000002 

000010 


000000 


010000 001400 


001140 

001400 

000004 

000060 

000100 

000061 

000002 

000010 


001400 

137777 

050026 

137777 


BLOS 2$ 

BIT #FMT16,RH0F0 

BEQ 3$ 

CMPB RMDA0.#30. 

BLOS 25 

BIT #SSEI .RHOFO 

BEQ 3$ 

CMP8 RMDA0,#31. 

BHI 35 

>5: CLR SGDDAT 

COMPARE EXPECTED AND RECIEVED 
15: MOV RMER1I .5BDDAT 

BIC #*CJAE .58DDAT 

CMP 5GDDAT.5BDDAT 

BNE 45 

BIC ASK J, 205 

BR 55 


;BR IF NO 

;18 BIT FORMAT ? 

;YES - SECTOR IS INVALID FOR 18 BIT MOOE 
.•SECTOR > 30. ? 

;BR IF NO 
; IS SSEI CLEAR ? 

; YES - SECTOR IS INVALID FOR 16 BIT MODE 
.•SECTOR > 31. ? 

;YES - SECTOR IS INVALID 

;'‘IAE" SHOULD = 0 

’IAE" STATUS 
;IS IAE OK?? 

.-SAVE IAE BIT FOR COMPARE 
.•CORRECT '‘IAE’* STATUS ? 

;BR IF NO 

.•CLEAR SKI FLAG 

;G0 CHECK NEXT ERROR 


.•REPORT INCORRECT , •IAE* , STATUS VIA USER'S ERROR CALL 


01, ASP) 

#5i.a(SP) 

A2.CSP) 

pc.acsp)* 

#i6.(sp> 


ERROR 51 

MOVE SP TO RETURN FOR ERROR 
REPORT INCOR. r CT IAE 
.•RESTORE <SP) 


REPORT ANY IVC ERROR AS 

I VC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR. VOLUME VALID IS SET 


001142 

000000 

001350 

000000 


001142 

001142 

001140 

001140 


BIT 

BEQ 

CLR 

MOV 

ADD 

NOVB 

BIT 

BEQ 

NOVB 

SUB 

JSR 

SUB 

NOP 


#JVC.RMER2I 

75 

56DDAT 

RMER2I .5BDDAT 
#4 .(SP) 
#60.3(SP> 
AVV.RHDSI 
65 

#61.d(SP> 

02 ASP) 
PC.i(SP)* 

#i6,<sp> 


RMER2I .58DDAT 
#*CSKI.5BDDAT 
29V5GDDAT 
#*CSKI .5GDDAT 
85 


IVC ERROR?? 

NO!! 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
ERROR 60 IF VV = 0 


ERROR 61 IF VV - 1 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 


RECEIVED STATUS 
CLEAR DONT CARES 
GET EXPECTED SKI STATUS 
CLEAR DONT CARES 
BRANCH IF 0 EXPECTED 


040000 001142 
000004 

000267 000000 


.REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED) 


BIT 

BNE 

ADD 

NOVB 


fSKJ.SBDDAT 

95 

#4, (SP) 
#267.a(SP> 


UAS SKI DETECTED ?? 

YES ! ! 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 


K 16 


SEO 0205 
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115 047214 

116 047220 

117 047222 

118 047226 

119 047230 

120 
121 

122 047230 

123 047236 

124 047240 

125 0472*4 

126 047252 

127 047256 

128 047260 

129 047264 

130 

131 

132 047266 

133 047274 

134 047276 

135 047302 

136 047310 

137 047314 
13e 047322 

139 047326 

140 047330 

141 047334 

142 

143 

144 

145 047336 

146 047344 

147 047346 

148 047352 

149 047360 

150 047364 

151 047372 

152 047400 

153 047402 

154 047410 

155 047414 

156 047416 

157 047422 

158 

159 

160 047424 

161 047430 

162 047*34 

163 047440 

164 047442 

165 

166 

167 047446 

168 047454 

169 047456 

170 04^464 

171 047466 


162716 

004736 

162716 

000443 


032737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001420 

005037 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001427 

005037 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


013746 

042716 

022726 

001002 

000137 


032737 

001030 

032737 

001024 

013737 


000002 

000010 

040000 001142 


000004 

000054 

000002 

000010 


001140 

001400 

000004 

000055 

000002 

000010 


8 $: 


SUB 

JSR 

SUB 

BR 


#2. (SP) 
pc.a(SP)* 
#10 . (sp) 
10$ 


000000 


001142 

000000 


001140 

001352 

000004 

000052 

010000 

000053 

000002 

000010 


001350 

047677 

110100 

047776 


010000 

020000 

001350 


001142 

000000 

001350 

000000 


.•REPORT ERROR IF SKI IS SET 


BIT 

BEO 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


#SKJ.$BDDAT 

9$ 

#4. (SP) 

#54.a<SP> 

#2,<SP) 

pc.a<sp>* 

#10. (SP) 


000200 001400 H: 


REPORT ANY DEVICE CHECK 


BIT #DVC,RMER2I 

BEQ 10$ 

CLR $GDDAT 

MOV RMER2I.$8DDAT 

ADD 04. (SP) 

MOVB #55.a(SP) 

SUB 02. (SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 

NOP 


MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
GO TO NEXT ERROR CHECK 


IS SKI SET ?? 

NO - SKI IS OK 

MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT SEEK ERROR 

RESTORE (SP) 


WAS THERE DVC DURING SEEK?? 
NO!' 

EXPECTED STATUS 
RECEIVED STATUS 

ERROR #55 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORT SP 


020000 001352 10$ 


.•REPORT ANY 't)PI" ERROR AS OPI WITH MOL 
.•BECAUSE ON CYLINDER LATCH DIDN'T RESET 

Sa* a* t mm\v nMrM ? . * inn f * • 


= 0, OR OPI 


11 $: 


BIT #OPI .RMER1 I 

BEQ 12$ 

CLR $GDDAT 

MOV RMER1I.$BDDAT 

ADD #4.(SP) 

MOVB #52,8(SP) 

BIT #MOL,RMDSI 

BEQ 11$ 

MOVB #53.a(SP) 

SUB 02. (SP) 

JSR PC.8(SP)+ 

SUB #10. (SP) 

NOP 


t)PI" ERROR?? 

NO!! 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
WAS MEDIUM ON LINE?? 

NO!! 

YES - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT *t)PI" ERROR 
RESTORE (SP) 


;SEE IF 'VIP” = 0. AND "ATA", 'MOL AND "VV" = 1 
12$: MOV RMDSI.-(SP) 

81 C #*C<ATA!PIP!MOL!VV>,(SP) 

CMP #ATA ! MOL ! VV , (SP) ♦ 

8NE 13$ ; ERROR IN RMDS 

JMP 17$ ;RMDS IS OK 


001350 

001352 

001140 


; REPORT ERROR IF MOL = 0 AND OPI 
13$: BIT #MOL,RMDSI 

BNE 14$ 

BIT #OPI .RMER1I 

BNE 14$ 

MOV RMDSI .$GDDAT 


= 0 

IS MOL RESET?? 

NO - MOL IS SET 
WAS OPI SET 

YES - DONT REPORT ERROR 
EXPECTED STATUS 



I 16 


SEQ 0206 


V..-NFAO RM80 FCTNL PT3 MACRO VQ4.00 28- JAN-82 16:49:32 PAGE 28-3 
StEK STATUS CHECK SUBROUTINE 


172 047474 

173 047502 

174 047510 

175 047514 

176 047522 

177 047526 

178 047530 

179 047534 

180 
181 

182 047536 

183 047544 

184 047546 

185 047554 

186 047556 

187 047564 

188 047572 

189 047600 

190 047604 

191 047612 

192 047616 

193 047620 

194 047624 

195 

196 

197 047626 

198 047634 

199 047636 

200 047644 

201 047652 

202 047660 

203 047664 

204 047672 

205 047676 

206 

207 047700 

208 047704 

209 

210 

211 047706 

212 047714 

213 047716 

214 047724 

215 047726 

216 047734 

217 047742 

218 047750 

219 047754 

220 047762 

221 047766 

222 047770 

223 047774 

224 047776 

225 

226 

227 047776 

228 050000 


052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001030 

032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


010000 

001350 

000004 

000062 

000002 

000010 


001350 

020000 

001350 

000004 

000056 

000002 

000010 


001140 

001142 

000000 


020000 001350 
040000 001400 


001140 

001142 

001142 

000000 


100000 001350 


001350 

110600 

001350 

000004 

000057 

000002 


000010 


001140 

001140 

0C1142 

000000 


001350 

000100 

001350 

000004 

000064 

000002 

000010 


BIS fMOL.SGDDAT 

NOV RNDSI, SBDDAT 

ADD #4.(SP) 

NOVB #62,8(5P) 

SUB #2,(SP) 

JSR PC.i(SP)* 

SUB #10, (SP) 

NOP 

REPORT AN ERROR IF "PIP" IS 

4$: BIT #PIP, RNDSI 

BED 15S 

BIT #SKI .RNER2I 

8NE 15S 

NOV RMDSI. SGDDAT 

BIC #PIP.$BDDAT 

NOV RNDSI ,$BDDAT 

ADD #4.(SP) 

NOVB #56,8 (SP) 

SUB 02, (SP) 

JSR PC,8(SP)+ 

SUB #10. (SP) 

NOP 


.•RECEIVED STATUS 


;NOVE SP TO RETURN FOH ERROR 
; REPORT ERROR VIA USER 


STIL SET AND SKI NOT SET 
;IS '■PIP" STILL SET?? 

;N0! ! 

;UAS "SKI"SET?? 

; YES-DONT REPORT PIP 
.EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE (SP) TO ERROR 
.-LOAD ERROR NUMBER 
;MOVE SP TO RETURN FOR ERROR 
REPORT "PIP" SET AFTER SEEK 
.•RESTORE <SP) 


.-REPOPi AN ERROR IF "ATA" IS NOT SET 
15$: BIT #ATA, RNDSI ;WAS A 


BIT 

#ATA, RMDSI 

.-WAS "ATA" SFT ?? 

BNE 

16$ 

.-YESJ! 

MOV 

RMDSI. $GDDAT 

.-EXPECTED STATUS 

BIS 

#ATA»NOL!DPR! 

DRY.SGDDAT 

NOV 

RMDSI. SBDDAT 

RECEIVED STATUS 

ADD 

#4, (SP) 

.-MOVE (SP) TO ERROR 

NOVB 

#57,a(SP) 

,-LOAD ERROR NUMBER 

SUB 

02, (SP) 

.-MOVE SP TO RETURN FOR ERROR 

JSR 

PC.9(SP)+ 

.-REPORT ATTENTION NOT SET DURING 
.-SEEK TEST 

SUB 

NOP 

#10. (SP) 

.-RESTORE (SP) 


000100 001350 
010000 001400 


.•REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 
16$: BIT #VV, RNDSI ;IS VV = 0 ?? 

BNE 17$ ;N0! i 

BIT #IVC,RMER2I ;IS IVC ALSO 0 ?? 

BNE 17$ ;N0 - IVC IS SET 

NOV RMDSI ,$GDDAT .-EXPECTED STATUS 

BIS #VV,$GDDAT 

NOV RNDSI, $8DDAT .-RECEIVED STATUS 

ADD #4 ,(SP) 

NOVB #64,8(SP) .-ERROR #64 

SUB 02, (SP) .-MOVE SP TO RETURN FOR EF 

JSR PC.atSPH 

SUB #10, (SP) 

NOP 

17 $: 

.-MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 

ADD #4,(SP) .-MOVE (SP) TO ERROR CALL 


001140 

001140 

001142 

000000 


000240 

062716 000004 


#VV. RMDSI 
17 $ 

#IVC,RMER2I 

17$ 

RMDSI , $GDDAT 
#VV,$GDDAT 
RMDSI, $BDDAT 
#4 f (SP) 
#64,a(SP) 

02, (SP) 
pc.a(SP)* 
#10, (SP) 


;IS VV = 0 ?? 

;N0! ! 

.-IS IVC ALSO 0 ?? 

;N0 - IVC IS SET 
.-EXPECTED STATUS 

.-RECEIVED STATUS 

.-ERROR #64 

.-MOVE SP TO RETURN FOR ERROR 


SEQ 0207 


a i 
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SEEK STATUS CHECK SUBROUTINE 


229 

230 

050004 

050010 

1 05 776 
001403 

000000 


TSTB 

BEQ 

a CSP) 

18$ 

;UAS ERROR CALLED?? 

;N0! ! 

231 

232 

233 

234 

050012 

050016 

062716 

000402 

000004 


ADD 

BR 

#4, (SP) 

I9i 

.-MOVE TO ERROR RETURN 

050020 

162716 

000004 

18$: 

SUB 

#4.(SP> 

.-MOVE (SP) TO NO ERROR RETURN 

235 

236 

237 

050024 

000207 


19$: 

RTS 

PC 

.•RETURN 

050026 

000000 


20$: 

.WORD 

0 

.■ERROR FLA6S 


J 


L 


SEO 0208 
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C 1 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 050030 
050030 
050032 
050034 
050040 

13 050044 

14 050052 

15 050060 

16 050064 

17 050072 

18 050076 

19 050 i 02 

20 

21 050104 

22 050106 

23 050114 

24 050122 

25 050130 
050130 
050134 
050140 
050142 

26 050144 


.S8TTL CONTROLLER CLEAR SUBROUTINE 

THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER. RASSBUS ADAPTERS. 
AND DRIVES, THEN SELECTS THE DRIVE. 


010046 

010146 

013746 

013746 

012737 

012737 

013700 

012760 

013701 

111160 

000412 

022626 

062766 

112776 

162766 

012637 

012637 

012601 

012600 

000207 


CALL: 


CNTCLR: 


000004 

000006 

050104 

000300 

001276 

000040 

001466 

000010 


000004 

000007 

000002 

000006 

000004 


000004 

000006 

000010 


000010 

000010 

000010 


1 $: 


2 $: 


JSR 

BR 

NOP 

ERROR 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

BR 

CMP 

ADD 

MOVB 

SUB 

MOV 

MOV 

MOV 

MOV 

RTS 


PC, CNTCLR 


RO.-(SP) 
R1.-CSP) 
ERRVEC.-(SP) 
ERRVEC+2.-CSP) 
#1$,ERRVEC 
#PR6. ERRVEC +2 
SBASE.RO 
#CLR.RMCS2(R0> 
TSTQUE.R1 
(R1),RMCS2(R0) 
2 $ 

(SPH.(SP)* 

#4.10(SP) 

#7.aiOCSP) 

#2,10(SP) 

(SP;+,ERRVEC+2 
(SP> + .ERRVEC 
(SP)*. R1 
(SP) +.R0 
PC 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R0 = UNI BUS ADDRESS 
.‘CLEAR MASSBUS 
;GET DEVICE UNDER TEST 
.•SELECT DEVICE 


ADJUST STACK 

MOVE SP TO USER'S ERROR CALL 
WRITE THE ERROR NUMBER 
ADJUST SP TO RETURN TO ERROR 


;;POP STACK INTO 6RRVEC+2 
;;POP STACK INTO ERRVEC 
;;POP STACK INTO R1 
, ;POP STACK INTO RO 


*o>oo»^j0‘»^i-»'04ro— »o>ooo'>jO'»^-*'L»jr'j— »0'000'^0''^-*'0«\>— »0'00#^0‘w»-t>'0j(v»— < »o>ooo^jov^ti^o^r\j 
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SEQ 0209 


050146 


050146 

062716 

000004 


050152 

105076 

000000 


050156 

162716 

000004 


050162 

013737 

001336 

001142 

050170 

042737 

100000 

001142 

050176 

012737 

004200 

001140 

050204 

023737 

001140 

001142 

050212 

001413 



050214 

062716 

000004 


050220 

112776 

000126 

000000 

050226 

162716 

000002 


050232 

004736 



050234 

162716 

000010 


050240 

000240 



050242 

005037 

001140 


050246 

013737 

001342 

001142 

050254 

001413 



050256 

062716 

000004 


050262 

112776 

000127 

000000 

050270 

162716 

000002 


050274 

004736 



050276 

162716 

000010 


050302 

000240 



050304 

013737 

001346 

001142 

C50312 

010146 



050314 

005046 



050316 

013701 

001466 


050322 

111116 



050324 

052716 

000100 


050330 

012637 

001140 



D 1 


.S8TTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
STATUS STORED IN THE GET BUFFER, THIS SUBROUTINE SHOULD ONLY BE 
USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT 
5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 


STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. 
FOLLOWING STATUS BITS ARE NOT CHECKED: 


IN PARTICULAR, THE 


ATA.ERR.PIP.MOL.WRL.LBT.PGM.VV.QM.UNS.SKI.DVC 


CALL: 

(1) 


JSR 

BR 

NOP 

ERROR 

JSR 

??? 


CLRSTS: 


PC,CLRSTS 

??? 


pc.acsp)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


; CLEAR USER'S 
ADD 
CLRB 
SUB 

; REPORT ERROR 
1$: MOV 

BIC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

;REPORT ERROR 
2$: CLR 

MOV 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

•REPORT ERROR 
3$: MOV 

MOV 
CLR 
MOV 
MOVB 
BIS 
MOV 


ERROR CALL 
#4, (SP) 
a(SP) 

#4,(SP) 

IF RMCS1 NOT INITIALIZED 


.•MOVE SP TO ERROR 
; CLEAR ERROR NUMBER 
;MOVE SP BACK TO NO ERROR 


RMCS1I.SBDDAT 
#SC,$6DDAT 


•VFRTFV 

•IGNORE SPECIAL CONDITION 
#DVA!RDY,$GDDAT .‘EXPECT DVA ft RDY 

SGDDAT.SBDDAT .-COMPARE EXPECTED. RECEIVED 

2$ .‘BRANCH IF EQUAL 

#4.(SP) .-MOVE SP TO USER'S ERROR CALL 

#126.a(SP) ;WITE ERROR NUMBER IN CALL 

02 ASP) .-MOVE SP TO RETURN FOR ERROR 

PC.a(SP)+ .-REPORT ERROR VIA USER 

#10. (SP) .‘MOVE SP BACK TO NO ERROR 


IF RMBA NOT RESET 
$GDDAT 

RMBAI.SBDDAT 
3$ 

#4,(SP) 
#127.a<SP> 

02, (SP) 

pc.a(sp)* 

016, (SP) 


.•VERIFY RMBA IS ZERO 

.•BRANCH IF ZERO 
.‘MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CALL 
.‘MOVE SP TO RETURN FOR ERROR 
.‘REPORT ERROR VIA USER 
.‘MOVE SP BACK TO NO ERROR 


IF RMCS2 NOT INITIALIZED 
RMCS2I.SBDDAT .‘VERIFY RMCS2 


RI.-(SP) 
-(SP) 
TSTQUE.R1 
(R1), (SP) 
#IR. (SP) 
(SP)+,$GDDAT 


;;PUSH R1 ON STACK 
.‘EXPECT IR ft UNIT NUMBER 
;R1 * ADDRESS OF TEST QUE 
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SEQ 0210 


58 050334 

59 050336 

60 050344 

61 050346 

62 050352 

63 050360 

64 050364 

65 050366 

66 050372 

67 

68 050374 

69 050400 

70 050406 

71 050414 

72 050416 

73 050422 

74 050430 

75 050434 

76 050436 

77 050442 

78 

79 050444 

80 050452 

81 050460 

82 050466 

83 050474 

84 050476 

85 050502 

86 050510 

87 050514 

88 050516 

89 050522 

90 

91 050524 

92 050530 

93 050536 

94 050540 

95 050544 

96 050552 

97 050556 

98 050560 

99 050564 
100 

101 050566 

102 050574 

103 050602 

104 050610 

105 050616 

106 050620 

107 050624 

108 050632 

109 050636 

110 050640 

111 050644 

112 

113 050646 

114 050652 


012601 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

042737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


001140 001142 


000004 

000130 

000002 

000010 


001140 

001352 

040000 

000004 

000131 

000002 

000010 


001362 

000046 

000010 

001140 

000004 

000133 

000002 

000010 


001140 

001404 

000004 

000135 

000002 

000010 


001376 

140000 

011777 

001140 

000004 

000136 

000002 

000010 


000000 


001142 

001142 


000000 


001142 

001142 

001140 

001142 


000000 


MOV (SPH.R1 ; ; POP STACK 

CMP SGDDAT, SBDDAT ; COMPARE EXI 

BEQ 4$ .-BRANCH IF I 

ADD #4. (SP) ;MOVE SP TO 

MOVB #130.i(SP) ;WITE ERROR 

SUB #2,(SP) .-MOVE SP TO 

JSR PC,8(SP)+ .-REPORT ERR 

SUB #10, (SP) .-MOVE SP BA 

NOP 

ERROR IF RMER1 NOT RESET-IGNORE UNS 
CLR SGDDAT .-VERIFY RME 

MOV RMER1 I, SBDDAT 

B1C #UNS, SBDDAT .-IGNORE UNS 

BEQ 5$ .-BRANCH IF 

ADD #4, (SP) .-MOVE SP TO 

MOVB #131 .8 (SP) ;WITE ERROR 

SUB #2,($P) .'MOVE SP TO 

JSR PC.a(SPH .-REPORT ERR 

SUB #10, (SP) .‘MOVE SP BA 

NOP 


.-REPORT 

4$: 


rREPORT 

$S: 


.-POP STACK INTO R1 
COMPARE EXPECTED % RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER’S ERROR CALL 
U1TE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


VERIFY RMER1 

IGNORE UNSAFE 

BRANCH IF ZERO 

MOVE SP TO USER'S ERROR CALL 

UITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR 


ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC.LS.LST 


RMNR1 I, SBDDAT .-VERIFY RMMR 

#UC!LS!LST,SBDDAT .-IGNORE WORD CLOCK, SCT, TRK 


001142 


000000 


001142 

001142 

001140 

001142 


000000 


.-REPORT 

6 $: 


NOV RMNR1 I, SBDDAT ;VERIF’ 

BIC #WC ! LS ! LST .SBDDAT 

NOV #MWD. SGDDAT ,-EXPEC 

CMP SGDDAT, SBDDAT ,-COMPAI 

BEQ 6S ,-BRANCi 

ADD #4.(SP) .-MOVE 

MOVB #133.a(SP) ;WITE 

SUB #2,(SP) .-MOVE 

JSR PC.a(SP)* ,-REPOR 

SUB #10. (SP) ,-MOVE 

NOP 

AN ERROR IF RMEC2 IS NOT RESET 


.-EXPECT WRITE DATA BIT 
.-COMPARE EXPECTED AND RECEIVED 
.-BRANCH IF 0 

.-MOVE SP TO USER'S ERROR CALL 
;UITE ERROR NUMBER IN CALL 
,-MOVE SP TO RETURN FOR ERROR 
.-REPORT ERROR VIA USER 
,-MOVE SP BACK TO NO ERROR 


CLR SGDDAT ; EXPECT ZEROS 

NOV RMEC2I .SBDDAT .-VERIFY RMEC2>0 

BEQ 7S 

ADD #4, (SP) .-MOVE SP TO USER'S ERROR CALL 

MOVB #1$5.a(SP) .-UITE ERROR NUMBER IN CALL 

SUB #2, (SP) .'MOVE SP TO RETURN FOR ERROR 

JSR PC.a(SP)* ; REPORT ERROR VIA USER 

SUB #10. (SP) ^ .-MOVE SP BACK TO NO ERROR 
NOP 

ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA.RQB 
MOV RMMR2I. SBDDAT .-VERIFY RMMR2 

BIC #RQA:RQB. SBDDAT 

MOV #TSTJ177f, SGDDAT .-EXPECT TEST BIT ON 

CMP SGDDAT, SBDDAT 

BEQ 8S 

ADD #4.(SP) .-MOVE SP TO USER’S ERROR CALL 

MOVB #1$6,a(SP) ;WITE ERROR NUMBER IN CALL 

SUB #2,($P) .‘HOVE SP TO RETURN FOR ERROR 

JSR PC.a(SP)* .-REPORT ERROR VIA USER 

SUB #l6.(SP) .-MOVE SP BACK TO NO ERROR 


; REPORT 

>$: 


005037 001140 
013737 001400 


001142 


•REPORT 

$S: 


MOV 

BIC 

MOV 

CMP 

BEQ 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


.-EXPECT ZEROS 
.-VERIFY RM£C2=0 

.-MOVE SP TO USER'S ERROR CALL 
.-UITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
; REPORT ERROR VIA USER 
.-MOVE SP BACK TO NO ERROR 


.-EXPECT TEST BIT ON 


#4.(SP) 
#1$6,a(SP> 
#2.($P) 
pc.a(SP>* 
#10, (SP) 


ERROR IF RMER2 NOT RESET-IGNORE SK1.DVC 


SGDDAT 

RMER2I .SBDDAT 


.-EXPECT ALL ZEROS 
.-VERIFY RMER2 


I 


SEO 0211 
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F 1 


115 050660 

116 050666 

117 050670 

118 050674 

119 050702 

120 050706 

121 050710 

122 050714 

123 

124 050716 

125 050724 

126 050732 

127 050740 

128 050746 

129 050750 

130 050754 

131 050762 

132 050766 

133 050770 

134 050774 

135 050776 

136 051002 

137 051006 

138 051010 

139 051014 

140 051016 

141 051022 

142 051024 


042737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

062716 

105776 

001403 

062716 

000402 

162716 

000240 

00020 ? 


040200 

000004 

000174 

000002 

000010 


001350 

177177 

000600 

001140 

000004 

000134 

000002 

000010 

000004 

000000 

000004 

000004 


001142 

000000 


001142 

001142 

001140 

001142 


000000 


BIC 

BEQ 

ADD 

Move 

SUB 
JSR 
St 3 
NOP 

•REPORT ERROR 
§$: MOV 

BIC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

10$: ADD 

TSTB 
BEQ 
ADD 
BR 

11$: SUB 

12$: NOP 

RTS 


#SKI !DVC,$BDDAT 
9$ 

#4.(SP) 

#174,a(SP) 

#2»(SP) 

pc.bcsph 
#10, (SP) 


IGNORE DEVICE ERRORS 
BRANCH IF OTHER BITS 0 
MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


IF RMDS NOT INITIALIZED 
RMDSI ,$BDDAT .-TEST DRIVE STATUS REGISTER 
#*C<DRY!DPR>.$BDDAT 

#DPR!DRY,$GDDAT .-EXPECTED DRIVE STATUS 

$GDDAT,$BDDAT ;COMPARE EXPECTED t RECEIVED 

10$ .-BRANCH IF EQUAL 

#4, (SP) .-MOVE SP TO USER'S ERROR CALL 

#134,a(SP> .‘WRITE ERROR NUMBER 

02. (SP) .-MOVE SP TO RETURN FOR ERROR 

PC.a<SP>* .-REPORT ERROR TO USER 

#10. (SP) .-MOVE SP BACK TO NO ERROR 


#4, (SP) 
a(SP> 

n$ 

#4, (SP) 

12 $ 

#4, (SP) 
PC 


.-MOVE SP TO ERROR CALL 
.-WAS AN ERROE DETECTED?? 
;N0! ! 

; YES - MOVE TO ERROR RETURN 
.-MOVE SP TO NO ERROR RETURN 



seo 0212 
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G 1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 051026 

16 

17 

18 051026 

19 051032 

20 051036 

21 
22 

23 051042 

24 051050 

25 051052 

26 051060 

27 051066 

28 051074 

29 051100 

30 051106 

31 051112 

32 051114 

33 051120 

34 051122 

35 

36 

37 051122 

38 051130 

39 051132 

40 051140 

41 051146 

42 051154 

43 051160 

44 051166 

45 051172 

46 051174 

47 051200 

48 051202 

49 

50 

51 051202 

52 051210 

53 

54 

55 051212 

56 05 1220 

57 051222 


062716 

105076 

162716 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


010000 001350 


001350 

010000 

001350 

000004 

000041 

000002 

00001 C 


001140 

001140 

001142 

000000 


.SSTTL PACK ACKNOWLEDGE STATUS CHECK 

THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
REPORTED TO THE USER VIA THE USER’S ERROR CALL. 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


MOVE SP TO ERROR CALL 
CLEAR LOU ORDER BYTE 
MOVE SP BACK 


IS VOLUME VALID SET?? 

YES' ' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO ERROR CALL 
WRITE NUMBER IN ERROR CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR 
MOVE SP BACK TO BRANCH 


IS MOL SET?? 

YES' 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT TH ERROR 

MOVE SP TO BRANCH 



.-CALL: 




; (1) 

JSR 

PC .ACKSTS 



BR 

NOP 

ERROR 

??? 


ACKSTS: 

JSR 

• • • 

pc.a(sp)* 


.•CLEAR USER'S 

ERROR CALL 

000004 


ADD 

#4, (SP) 

000000 


CLRB 

a(SP) 

000004 


SUB 

#4,(SP> 


.•REPORT 

AN ERROR IF *VV" IS 

000100 

001350 

BIT 

BNE 

#VV,RMDSI 

1$ 

001350 

001140 

MOV 

RMDSI.SGDDAT 

000100 

001140 

BIS 

#VV,$GDDAT 

001350 

001142 

MOV 

RMDSI.SBDDAT 

000004 


ADD 

#4.(SP> 

#l55.a(SP) 

000155 

000000 

MOVB 

000002 


SUB 

JSR 

#2, (SP) 
pc.a(SP>+ 
#io, (sp) 

000010 

1$: 

SUB 

NOP 


.•REPORT AN ERROR IF *HOL" IS 0 


2 $: 


BIT 

BNE 

MOV 

BIS 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


#MOL.RMDSI 
2 $ 

RMDSI.SGDDAT 

#MOL,SGDDAT 

RMDSI.SBDDAT 

#4 .(SP) 

#41,a(SP) 

#2.(SP> 

pc.acsp)* 

#10, (SP) 


032737 060007 
001570 


032737 040000 
001424 

013737 001352 


001352 

001352 

001142 


;SEE IF 'tJNS'VWI' VKMR'V'ILR", OR "ILF" IS SET 
BIT #UNS 1 OPI ! RMR ! I LR ! I LF .RMER1 I 

BED 7$ 


.•REPORT AN ERROR IF ’UNS" IS SET 
BIT fUNS.RMERII 

BED 3$ 

MOV RMER1I.SBDDAT 


WAS UNS SET?? 
NO' 1 

RECEIVED STATUS 
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H 1 


SEQ 0213 


58 

051230 

013737 

001352 

001140 


NOV 

RMER1I.SGDDAT 

.•EXPECTED STATUS 

59 

051236 

042737 

040000 

001140 


BIC 

#UNS.$GDDAT 


60 

051244 

062716 

000004 



ADD 

#4.(SP) 

#42.a<SP> 

.-MOVE SP TO ERROR CALL 

61 

051250 

112776 

000042 

000000 


NOVB 

.-WRITE NUMBER OF ERROR IN CALL 

62 

051256 

162716 

000002 



SUB 

#2,(SP) 

.‘MOVE SP TO RETURN FOR ERROR 

63 

051262 

004736 




JSR 

pc.acsp)* 

#10. (SP) 

.•REPORT THE ERROR VIA USER 

64 

051264 

162716 

000010 



SUB 

.•MOVE SP TO NO ERROR RETURN 

65 

66 

67 

68 

051270 

051272 

000240 



3S: 

NOP 







.•REPORT 

ANY 0 PI 

ERROR 


69 

051272 

032737 

020000 

001352 


BIT 

#0PI,RMER1I 

.-WAS OPI SET ?? 

70 

051300 

001424 




BEQ 

4$ 

;N0! ! 

71 

051302 

013737 

001352 

001142 


NOV 

RNER1I.SBDDAT 

.•RECEIVED STATUS 

72 

051310 

013737 

001352 

001140 


NOV 

RMER1I.SGDDAT 

.•EXPECTED STATUS 

73 

051316 

042737 

020000 

001140 


BIC 

#OPI,$GDDAT 


74 

051324 

062716 

000004 



ADD 

#4.(SP) 

#43.a<SP) 

.‘MOVE SP TO ERROR CALL 

75 

051330 

112776 

000043 

000000 


NOVB 

.‘WRITE NUMBER OF ERROR IN CALL 

76 

051336 

162716 

000002 



SUB 

#2,(SP) 

.-MOVE SP TO RETURN FOR ERROR 

77 

051342 

004736 




JSR 

PC.a(SP)* 

#10. (SP) 

.•REPORT THE ERROR VIA USER 

78 

051344 

162716 

000010 



SUB 

.‘MOVE SP TO NO ERROR RETURN 

79 

80 
81 
82 

051350 

051352 

000240 



4$: 

NOP 







.•REPORT 

ANY RMR 

ERROR 


83 

051352 

032737 

000004 

001352 


BIT 

#RMR,RMER1I 

.-WAS RMR SET?? 

84 

051360 

001424 




BEQ 

5$ 

;N0! ! 

85 

051362 

013737 

001352 

001142 


NOV 

RNER1I.SBDDAT 

.•RECEIVED STATUS 

86 

051370 

013737 

001352 

001140 


NOV 

RNER1I.SGDDAT 

.•EXPECTED STATUS 

87 

051376 

042737 

000004 

001140 


BIC 

#RNR,$GDDAT 


88 

051404 

062716 

000004 



ADD 

#4. (SP) 
#44.a<SP) 

.-MOVE SP TO ERROR CALL 

89 

051410 

112776 

000044 

000000 


NOVB 

.•WRITE NUMBER OF ERROR IN CALL 

90 

051416 

162716 

000002 



SUB 

#2,(SP) 

.•MOVE SP TO RETURN FOR ERROR 

91 

051422 

004736 




JSR 

pc.a(SP)* 

#10. (SP) 

.•REPORT THE ERROR VIA USER 

92 

051424 

162716 

000010 



SUB 

.-MOVE SP TO NO ERROR RETURN 

93 

94 

95 

96 

051430 

051432 

000240 



5$: 

NOP 







.•REPORT 

ANY 

1LR ERROR 


97 

051432 

032737 

000002 

001352 


BIT 

#ILR.RMER11 

.-WAS 1LR SET?? 

98 

051440 

001424 




BEQ 

6$ 

;N0! ! 

99 

051442 

013737 

001352 

001142 


NOV 

RMER1I.SBDDAT 

.‘RECEIVED STATUS 

100 

051450 

013737 

001352 

001140 


NOV 

RNER1I.SGDDAT 

.•EXPECTED STATUS 

101 

051456 

042737 

000002 

001140 


BIC 

#ILR.$GDDAT 


102 

051464 

062716 

000004 



ADD 

#4. (SP) 

.•MOVE SP TO ERROR CALL 

103 

051470 

112776 

000045 

000000 


NOVB 

#45.a(SP) 

.-WRITE NUMBER OF ERROR IN CALL 

104 

051476 

162716 

000002 



SUB 

#2,(SP) 

.-MOVE SP TO RETURN FOR ERROR 

105 

051502 

004736 




JSR 

pc.a(sp)* 

.-REPORT THE ERROR VIA USER 

106 

051504 

162716 

000010 



SUB 

#10. (SP) 

;MOVE SP TO NO ERROR RETURN 

107 

051510 

000240 




NOP 


-08 

109 

051512 




6$: 




110 





.•REPORT 

ANY 

ILF ERROR 


111 

051512 

032737 

000001 

001352 


BIT 

#ILF.RMER1I 

;WAS ILF SET?? 

112 

051520 

001424 




BEQ 

7$ 

;N0!! 

113 

051522 

013737 

001352 

001142 


NOV 

RNER11.SBDDAT 

.•RECEIVED STATUS 

114 

051530 

013737 

001352 

001140 


MOV 

RMER1I.SGDDAT 

.•EXPECTED STATUS 



SEQ 0214 
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115 051536 

116 051544 

117 051550 

118 051556 

119 051562 

120 051564 

121 051570 

122 051572 


042737 

062716 

112776 

162716 

004736 

162716 

000240 


000001 001140 

000004 

000046 000000 
000002 

000010 


#ILF,JGDDAT 
#4. (SP) 
#46,a(SP) 
#2.(S P) 

pc.acsp )♦ 

#10,(SP) 


MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


1 u -/ 

124 



.•AUGMENT RETURN ADDRESS 

IF ERROR WAS FOUND 

125 051572 

062716 

000004 


ADD 

#4, (SP) 

;MOVE SP TO ERROR CALL 

126 051576 

105776 

000000 


TSTB 

acsp) 

;WAS ERROR FOUND?? 

127 051602 

001403 



BEQ 

8$ 

;N0! ! 

128 051604 

062716 

000004 


ADD 

#4, (SP) 

; YES - MOVE TO ERROR RETURN 

129 051610 

000402 



BR 

9$ 


130 051612 

162716 

000004 

8$: 

SUB 

#4, (SP) 

.‘MOVE SP TO NO ERROR RETURN 

131 051616 

000240 


9$: 

NOP 



132 051620 

000207 



RTS 

PC 

i 
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J 1 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 051622 

16 

17 

18 051622 

19 051626 

20 051632 

21 
22 

23 

24 051636 

25 051644 

26 

27 

28 

29 051646 

30 051654 

31 051656 

32 051664 

33 051666 

34 051674 

35 051702 

36 051710 

37 051714 

38 051722 

39 051726 

40 051730 

41 051734 

42 051736 

43 

44 

45 051736 

46 051744 

47 051746 

48 051754 

49 051762 

50 051770 

51 051774 

52 052002 

53 052006 

54 052010 

55 052014 

56 052016 

57 


032737 

001553 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


.SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 

.-THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
.•USING THE STATUS STORED IN THE GET BUFFER. 


CALL: 



; (1) 

JSR 

PC, RCLSTS 



BR 

NOP 

ERROR 

??? 


RCLSTS: 

JSR 

• • • 

pc.atsp)* 


.CLEAR USER'S 

ERROR NUMBER 

000004 


ADD 

#4 .(SP) 

000000 


CLRB 

a(SP) 

000004 


SUB 

#4,(SP) 


;SEE IF 

•PAR" 

OR "ILF" OR 'lOP 

022011 

001352 

BIT 

BED 

#OPI ! PAR! ILF! 
5$ 


.•REPORT 

.-"PAR" 

ANY MASS8US CONTROL Bl 
= 1 AND "DPE" = 0 


000010 

001352 

BIT 

BED 

#PAR,RMER1I 

1$ 

000010 

001400 

BIT 

BNE 

#DPE,RMER2I 

IS 

001352 

001140 

MOV 

RMER1I.SGDDAT 

000010 

001140 

BIC 

#PAR,$GDDAT 
RMER1I.S6DDAT 
#4 ASP) .-MOVE 

001352 

001142 

MOV 

000004 


ADD 

000050 

000000 

MOVB 

#50,a(SP) 

000002 


SUB 

JSR 

#2. (SP) 
PC t a(SP)+ 

000010 

1$: 

SUB 

NOP 

#10, (SP) 




.•REPORT ANY * 

000001 

001352 

BIT 



BED 

C01352 

001140 

MOV 

000001 

001140 

BIC 

001352 

001142 

MOV 

000004 


ADD 

000071 

000000 

MOVB 

000002 


SUB 



JSR 

000010 


SUB 



NOP 


’ILF" ERROR 
#ILF,RMER1I 
2 $ 

RMER1I.SGDDAT 
#ILF,$GDDAT 
RMER1I.SBDDAT 
#4 f (SP) 
#71,8(SP) 

#2, <SP> 

pc.b(sp)+ 

#10. (SP) 


.‘CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 


.•CLEAR USER'S ERROR CALL 
.•MOVE SP BACK TO BRANCH 


OR "IAE" IS SET 
E.RMERII 

.-NONE ARE SET - GO TO NEXT CHECK 


WAS ‘PAR" SET?? 

NO 1 1 

WAS ”’t>PE" SET?? 

YES - NOT A REGISTER ERROR 
EXPECTED STATUS 

DECEIVED STATUS 
» TO USER'S ERROR CALL 
.•WRITE ERROR NUMBER IN CALL 
;MOVE SP TO RETURN FOR ERROR 
;G0 REPORT ERROR 
.•MOVE SP BACK TO BRANCH 


WAS "ILF" SET?? 

NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


2 $: 



$ C Q 0216 
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K 1 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
ICS 

109 

110 
111 
112 

113 

114 


052016 

052024 

052026 

052034 

052042 

052050 

052054 

052062 

052070 

052072 

052100 

052104 

052106 

052112 

052114 


C52114 

052122 

052124 

052132 

052140 

0W6 

052152 

052160 

052164 

052166 

052172 

052174 


052174 

052202 


052204 

052212 

052214 

052222 

052230 

052236 

052242 

052250 

052256 

052260 

052266 

052272 

052274 

052300 

052302 


032737 

001433 

013737 

042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001517 


020000 001352 


REPORT 


ANY •■OPI*' 
. OPI DUE 
. OPI 
BIT 


ERROR AS 
TO ‘WL" = 0 
BECAUSE ON CYLINDER LATCH DIDN’T RESET 


001352 

020000 

001352 

000004 

000072 

010000 

000073 

000002 

000010 


001140 

001140 

001142 

000000 

001350 

000000 


3S: 


4$: 


#0PI,RMER1I 
BE@ 4$ 

MOV RMER1I ,$GDDAT 

BIC #OPI.$GDDAT 

MOV RM£R1I,S8DDAT 

ADD #4,(SP) 

MOVB #72.a(SP) 

BIT #MOL,RMDSI 

BEO 3$ 

M0V8 #73,3(SP> 

SUB #2.(SP) 

JSR PC.3(SPH 

SUB #10, (SP) 

NOP 


002000 001352 


.•REPORT AN ERROR IF "IAE" IS SET 


001352 

002000 

001352 

000004 

000070 

000002 

000010 


001140 

001140 

001142 

000000 


5$: 


BIT 

B£Q 

MOV 

BIC 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


#IAE,RMER1I 

5$ 

RMER1I.JGDDAT 

#IAE,$GDDAT 

RMER1I.SBDDAT 

#4.(SP) 

#70.a<sp> 

#2. (SP) 

pc.acsPH 

#io.(SP> 


WAS OPI SET?? 

NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 
WAS *MOL" = 0?? 

YES!! 

NO ~ CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


IS "IAE" SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 
MOVE SP TO RETURN FOR ERROR 

RFPflRT FRRDR 

MOVE SP BACK TO NO ERROR RETURN 


050200 001400 


;SEE IF ‘•SKI* 
BIT 
BEQ 


OR ,, IVC*' OR "DVC" IS SET 
#SKI!IVC !DVC,RMER2I 

9$ .-NONE OF THE BITS ARE SET 


032737 

010000 

001400 

BIT 

001433 



BEQ 

013737 

001400 

001140 

MOV 

042737 

010000 

001140 

BIC 

013737 

001400 

001142 

MOV 

062716 

000004 


ADD 

112776 

000074 

000000 

MOVB 

032737 

000100 

001350 

BIT 

001403 



BEQ 

112776 

000075 

000000 

MOVB 

162716 

000002 

6$: 

SUB 

004736 



JSR 

162716 

000010 


SUB 

000240 



NOP 


REPORT ANY "IVC" ERROR AS 
.IVC WITH VV = 0 
•ERRONEOUS IVC ERROR 
#IVC,RMER2I 

7$ 

RMER2I.SGDDAT 
#IVC.$GDDAT 
RMER2I.$8DDAT 
#4,(SP) 
#74,a<SP> 
fVV.RMDSI 
6$ 

#75,a<SP> 
#2,(SP) 

pc.acsp)* 

#i6,(sp) 


WAS IVC SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
WAS VV = 0?? 

YES' 1 

NO -'change error number 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


7$: 
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L 1 


SEQ 0217 


115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 
135 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


052302 

052310 

052312 

052320 

052326 

052334 

052340 

052346 

052352 

052354 

052360 

052362 


052362 

052370 

052372 

052400 

052406 

052414 

052420 

052426 

052432 

052434 

052440 

052442 


052442 

052446 

052452 

052456 

052460 

052464 


052464 

052472 

052474 

052502 

052504 

052512 

052520 

052526 

052532 

052540 

052544 

052546 

052552 

052554 


052554 

052562 

052564 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


013746 

042716 

022726 

001002 

000137 


032737 

001030 

032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001030 

032737 


040000 001400 


.•REPORT ANY “SKI" ERROR 


001400 

040000 

001400 

000004 

000076 

000002 

000010 


001140 

001140 

001142 

000000 


000200 001400 


001400 

000200 

001400 

000004 

000077 

000002 

000010 


001350 

047676 

110100 

053074 


010000 

020000 

001350 

010000 

001350 

000004 

000100 

000002 

000010 


000100 

010000 


001140 

001140 

001142 

000000 


8 $: 


BIT 

BEQ 

MOV 

B1C 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


.•REPORT ANY 
BIT 
BEQ 
MOV 
BIC 
MOV 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 
9$: 


#SKI .RMER2I 
8$ 

RMER2I. SGDDAT 
#SKI .SGDDAT 
RMER2I.SBDDAT 
#4, (SP) 
#76,3(SP) 

02. ISP) 
PC.a(SP)* 

#10, (SP) 


DVC" ERROR 
#DVC,RMER2I 
9$ 

RMER2I , SGDDAT 
#D VC, SGDDAT 
RMER2I.SBDDAT 
#4.(SP) 
#77.a<SP) 

02. (SP) 

pc.atsp )♦ 

#10. (SP) 


WAS SKI SET?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO BRANCH 


WAS "DVC" SET?? 

NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO USER'S BRANCH 


001350 

001352 

001140 

001140 

001142 

000000 


;SEE IF TIP" AND *W ARE 0, AND "ATA'VMOL" AND *W* ARE 1 
MOV RMDSI.-(SP) ;PUT RMDS ON STACK 
BIC #*C<PIP!MOL!VV!QM!ATA>, (SP) 

CMP #ATA!MOL!VV,(SP)+ 

BNE 10S 

JMP 15$ 

10 $: 

.•REPORT AN ERROR IF MOL = 0 AND OPI = 0, I.E., MEDIUM WENT OFF 
;LINE AFTER RECALIBRATE WAS INITIATED 


11 $: 


BIT 

BNE 

BIT 

BNE 

MOV 

BIS 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


DID MOL DROP?? 

NO!! 

WAS OPI ERROR REPORTED?? 
YES - DON’T REPORT MOL=0 
EXPECTED STATUS 

.•RECEIVED STATUS 


#MOL,RMDSI 
11 $ 

#0PI,RMER1I 
11 $ 

RMDSI,$GDDAT 
#MOL,$GDDAT 

RMDS I ,$BDDAT 

#4 f (SP) .-HOVE SP TO USER’S ERROR CALL 


/ #11 
#ioo.a(SP) 
02. (SP) 
pc,a(SP)+ 
#10, (SP) 


WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USEF< 

MOVE SP BACK TO USER'S BRANCH 


001350 

001400 


.•REPORT AN ERROR IF “VV“ = 0 AND "IVC** =0 

BIT #VV,RMDSI :DID ’W" DROP?? 

BNE 12$ ;N0! ! 

BIT #IVC,RMER2I ;WAS THERE A IVC ERROR?? 


L 



SEQ 0218 
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172 052572 

173 052574 

174 052602 

175 052610 

176 052616 

177 052622 

178 052630 

179 052634 

180 052636 

181 052642 

182 052644 

183 

184 

185 052644 

186 052652 

187 052654 

188 052662 

189 052670 

190 052676 

191 052702 

192 052710 

193 052714 

194 052716 

195 052722 

196 

197 052724 

198 

199 

200 

201 052724 

202 052732 
205 052734 

204 052742 

205 052750 

206 052756 


05276. 

208 052770 

209 052774 

210 052776 

211 053002 

212 053004 


001024 

013737 

013737 

052737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


216 053004 

217 043012 

218 053014 

219 053022 

220 053024 

221 053032 

222 053040 

223 053045 

224 053052 

225 053060 

226 053064 

227 053066 

228 053D72 


001350 

001350 

000100 

000004 

000101 

000002 

000010 


001140 

001142 

001140 

000000 


100000 001350 


001350 

100000 

001350 

000004 

000102 

000002 

000010 


001140 

001140 

001142 

OOOOOC 


032737 000001 001350 


001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


001350 

000001 

001350 

000004 

000103 

000002 

000010 


001350 

020000 

001350 

000004 

000104 

000002 

000010 


12 * 

RMDSI, SGDDAT 
RMDSI. SBDDAT 
#VV, SGDDAT 
#4.(SP) 
#101.a(SP> 
#2,(SP) 

pc.acsp)* 
#10, (SP) 


; YES - DONT REPORT VV=0 
.•EXPECTED STATUS 
.•RECEIVED STATUS 

.•MOVE SP TO USER'S ERROR CALL 
; WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN FOR ERROR 

.-MOVE SP BACK TO USER'S BRANCH 


001140 

001140 

001142 

000000 


.•REPORT AN ERROR IF ATA IS NOT SET 


BIT #ATA,RMDSI 

BNE 13$ 

MOV RMDSI .SGDDAT 

BIS #ATA, SGDDAT 

MOV RMDSI, SBDDAT 

ADD #4, (SP) 

MOVB #102,a(SP) 

SUB #2, (SP) 

jsr pc.a(sp)+ 

SUB #10, (SP) 

NOP 


.•REPORT AN ERROR IF 'W IS NOT 
.-ALWAYS CLEAR OFFSET MODE 


020000 001350 
040000 001400 


BIT #0M, RMDSI 

BEQ 14$ 

MOV RMDSI, SGDDAT 

BIC #0M, SGDDAT 

MOV RMDSI. SBDDAT 

ADD #4, (SP) 

MOVB #103.a(SP) 

SUB #2,(SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 

NOP 


; REPORT AN ERROR IF ’1PIP" IS 
.•CYLINDER 


001140 

001140 

001142 

000000 


BIT #PIP. RMDSI 

BEQ 15$ 

BIT #SKI,RMER2I 

BNE 15$ 

MOV RMDSI, SGDDAT 

BIC #PIP, SGDDAT 

MOV RMDSI, SBDDAT 

ADD #4,(SP) .-MOVE 

MOVB #104,a(SP) 

SUB #2. (SP) 

JSR PC.a(SPH 

SUB #10, (SP) 

NOP 


;WAS ATA SET DURING RECALIBRATE?? 
•YES 1 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 

.•MOVE SP TO USER'S ERROR CALL 

.•WRITE ERROR NUMBER IN CALL 


.-MOVE SP TO USER'S BRANCH 


ZERO BECAUSE RECmLIBRATE SHOULD 

.-WAS "DM" RESET?? 

•YES' ' 

•EXPECTED STATUS 


RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USEP 

MOVE SP TO USER'S BF JH 


STIL ON, I.E., DRIVE NOT ON 

;IS DRIVE OFF CYLINDER?? 

•NO' 1 

; WAS* "SKI" DETECTED?? 

; YES-DONT REPORT *T»IP" 
.•EXPECTED STATUS 

.-RECEIVE*) STATUS 
: SP TO USER’S ERROR CALL 
; WRITE ERROR NUMBER 
.-MOVE SP TO RETURN FOR ERROR 

,-MOVE SP BACK TO USER’S BRANCH 
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N 1 


SEQ Oi 


053074 

053102 


229 053074 

230 

231 

III 

234 

235 

236 053104 

23 7 053112 

238 053114 

239 053122 

240 053130 

241 053136 

242 053142 

243 053150 

244 053154 

245 053156 

246 053162 

247 053164 

248 

249 

250 053164 

251 053172 

P 

M 

258 05 


032737 

001514 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 


040006 001352 


000002 001352 


001352 

000002 

001352 

000004 

000105 

000002 

000010 


001352 

000004 

001352 

000004 

000106 

000002 

000010 



000004 

000004 


15$: 

;SEE IF "ILR* 
BIT 
BEG 


OR ‘*MR" OR "UNS" IS SET 
#ILR!RMR!UNS.RMER1I 
18$ 


.•REPORT AN ERROR IF "ILR" IS SET 


001140 

001140 

001142 

000000 


16 $: 


BIT flLR.RMERII 

BEG 16$ 

MOV RMER1I,$GDDAT 

81 C #ILR,$GDDAT 

MOV RM£R1I.$BDDAT 

ADD #4,(SP) .'MOVE 

MOVB f105,a(SP) 

SUB #2. (SP> 

jsr pc.acsp>+ 

SUB #l6.(SP> 

NOP 


;UAS ILR SET DURING RECALIBRATE?? 
'NO 1 1 
•EXPECTED STATUS 

.'RECEIVED STATUS 
SP TO USER'S ERROR CALL 
.-WRITE ERROR NUMBER IN CALL 
.‘MOVE SP TO RETURN FOR ERROR 

.'MOVE SP TO USER'S BRANCH 


000004 001352 


001140 

001140 

001142 

000000 


001352 

001400 

001140 

fe 

000000 


.•REPORT AN ERROR IF **HR" IS SET 
BIT ARMR.RMERII 

BEG 17$ 

MOV RMER11.$GDDAT 

BIC #RMR.$GDDAT 

MOV RMER1I,$BDDAT 

ADD #4 .(SP) 

MOVB #l06.a(SP) 

SUB 02. (SP) 

JSR PC.a<SP>+ 

SUB #10. (SP) 

NOP 

17$: 

; REPORT AN ERROR IF "UNS" IS SET 
BIT #UNS.RNER1I 

BEG 18$ 

BIT #DVC.RMER2I 

BNE 18$ 

MOV RMER1I.$GDDAT 

BIC #UNS f $GDDAT 

MOV RMER1I.$8DDAT 

ADD #4,(SP) 

MOVB #l67.a(SP) 

SUB 02. (SP) 

JSR PC.8(SPH 

SUB #l6.(SP) 

NOP 

18 $: 


WAS RMR SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO USER'S BRANCH 


AND "DVC" IS 0 
WAS UNSAFE ON?? 

NO* * 

WAS* THERE A DEVICE CHECK?? 

YES - DON'T REPORT UNSAFE 
EXPECTED STATUS 

TUEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 


.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 


19$: 


ADD 

TST8 

BEQ 

ADD 

BR 

SUB 


#4.<SP> 

a(£p) 

19$ 

#4.(SP) 

20 * 

#4.<SP> 


MOVE SP TO USER'S ERROR CALL 
WAS AN ERROR REPORTED?? 

NO 1 1 

YES’- AUGMENT SP RETURN 
;N0 ERROR - RETURN SP TO BRANCH 


SEQ 0220 
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286 053360 000240 20$: NOP 

287 053362 000207 RTS PC ; STATUS CECK IS COMPLETE 
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SEQ 0221 


.S8TTL DRIVE CLEAR STATUS CHECK SUBROUTINE 


4 

5 

6 

7 

8 

9 053364 
10 
11 

12 053364 

13 053370 

14 053374 

15 

16 053400 

17 053406 

18 053414 

19 053422 

20 053430 

21 053432 

22 053436 

23 053444 

24 053450 

25 053452 

26 053456 

27 

28 053460 

29 053466 

30 053474 

31 053502 

32 053510 

33 053512 

34 053516 

35 053524 

36 053530 

37 053532 

38 053536 

39 

40 053540 

41 053544 

42 053552 

43 053554 

44 053560 

45 053566 

46 053572 

47 053574 

48 053600 

49 

50 053602 

51 053610 

52 053612 

53 053614 

54 053620 

55 053424 

56 053630 

57 053632 


062716 

105076 

162716 

013737 

042737 

012737 

023737 

001443 

062716 

112776 

162716 

004736 

152716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

010146 

010246 

013701 

116102 

042702 

005102 

040237 


000004 

OC'IOOO 

000004 

001336 

173700 

004010 

001140 

000004 

000141 

000002 

000010 


001350 

021101 

010600 

001140 

000004 

000142 

000002 

000010 


001140 

001352 

000004 

000143 

000002 

000010 


001142 

001142 

001140 

001142 


000000 


001142 

001142 

001140 

001142 


000000 


001142 


000000 


001354 001142 


001466 

000001 

177400 


001142 


BR 

NOP 

ERROR 

JSR 


DRVSTS: 

.-CLEAR USER’S 
ADD 
CLRB 
SUB 

.’REPORT ERROR 

1$: MOV 

BIC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

: REPORT ERROR 

2$: MOV 

BIC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 

S$: CLR 

MOV 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

.•REPORT ERROR 

4$: MOV 

NOV 
MOV 
MOV 
MOVB 
BIC 
COM 
BIC 


PC.a(SP)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


ERROR CALL 

#4, (SP) .MOVE SP TO ERROR CALL 

SCSP) ; CLEAR ERROR CALL 

#4.<SP> .-MOVE SP TO USER'S BRANCH 

IF RMCS1 NOT INITIALIZED 
RMCS1 I .SBDDAT ;CHECK RMCS1 

# A C<DVA ! FNCNSK> .SBDDAT ; CLEAR DONT CARES 
#DVA‘DRVCLR,SGDDAT .-EXPECT DVA 


SGDDAT. SBDDAT 
3$ 

#4,(SP) 

#i4i.a(SP) 

#2,(SP) 

pc.acsp)* 

#io.<SP> 


COMPARE EXPECTED t RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMDS NOT INITIALIZED 
RMDSI. SBDDAT .-CHECK RMDS 
#PGM i ON !VV! PIP, SBDDAT .-CLEAR DONT CARES 

#NOL ! DPR ! DRY .SGDDAT ; EXPECT DRY & DPR 


SGDDAT, SBDDAT 
3$ 

#4. (SP) 

#142.a<SP> 

#2,(SP) 

pc.atsp)* 

#10, (SP) 


COMPARE EXPECTED t RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMER1 NOT INITIALIZED 


SGDDAT 

RMER1 I. SBDDAT 
4$ 

#4.(SP) 

#143,a(SP) 

#2, (SP) 

pc.a(sp)* 

#10, (SP) 


EXPECT O’S 
CHECK RNER1 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF ATA NOT INITIALIZED 


RMASI .SBDDAT 

Rl.-(SP) 

R2,-(SP) 

TSTQUE.R1 

1 (R1) ,R2 

#*CATNMSK,R2 

R2 

R2, SBDDAT 


CHECK ATTENTION BIT 
.-PUSH R1 ON STACK 
;PUSH R2 ON STACK 


! 
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SEQ 0222 


58 053636 

59 053640 

60 053642 

61 053646 

62 053650 

63 057654 

64 053662 

65 053666 

66 053670 

67 053674 

68 

69 053676 

70 053704 

71 053712 

72 053720 

73 053726 

74 053730 

75 053734 

76 053742 

77 053746 
70 053750 

79 053754 

80 

81 053756 

82 053764 

83 053772 

84 054000 

85 054006 

86 054010 

87 054014 

88 054022 

89 054026 

90 054030 

91 054034 

92 054036 

93 

94 054042 

95 054050 

96 054052 

97 054056 

98 054064 

99 054070 

100 054072 

101 054076 

102 

103 054100 

104 054106 

105 054110 

106 054114 

107 054122 

108 054126 

109 054130 

110 054134 

111 054136 

112 

113 054136 

114 


012602 

012601 

005737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


001142 

000004 

000144 000000 
000002 

000010 


001362 001142 
000046 001142 
000010 001140 
001140 001142 

000004 

000145 000000 
000002 

000010 


001376 001142 
140000 001142 
011777 001140 
001140 001142 

000004 

000146 000000 
000002 

000010 

001140 

001404 001142 


000004 

000150 

000002 

000010 


000000 


001400 001142 


C00004 

000147 

000002 

000010 


000000 


NOV 

NOV 

TST 

BEQ 

ADD 

NOVB 

SUB 

JSR 

SUB 

NOP 

;REPORT ERROR 
5 $: NOV 

BIC 
NOV 
CMP 
BEQ 
ADD 
NOVB 
SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 
6$: NOV 

BIC 
NOV 
CMP 
BEO 
ADD 
NOVB 
SUB 
JSR 
SUB 
NOP 

7$: CLR 

; REPORT ERROR 
NOV 
BEQ 
ADD 
NOVB 
SUB 
JSR 
SUB 
NOP 

;REPORT ERROR 
o$: NOV 

BEO 
ADD 
NOVB 
SUB 
JSR 
SUB 
NOP 


(SPH.R2 

(SP)*,R1 

S8DDAT 

5$ 

#4,<sr> 
#144,3(SP> 
#2, (SP) 
pc.acsPH 
#10, (SP) 


;POP STACK INTO R2 
;POP STACK INTO R1 
IS ATTENTION CLEARED?? 

BRANCH IF ATTENTION CLEARED 
HOVE SP TO ERROR CAi i 
WRITE NUMBER OF F!<ROR IN CALI 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMMR1 NOT INITIALIZED 
RMMR1I.SBDDAT : CHECK RMMR 
#WC 1 LS I 1ST ,$BDDAT ; CLEAR DONT CARES 


#MUD,$GDDAT 

SGDDAT.SBDDAT 

6 $ 

#4. (SP) 
#145.a(SP) 
#2,(SP) 
pc.a(sp>+ 

#10, (SP) 


EXPECT WRITE DATA ON 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 
MOVF SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMMR2 NOT INITIALIZED 


RMMR2I ,*BDDAT 
#RQA ! RQ6 , S8DDAT 
#TST!1777.$GDDAT 
$6DDAT,$BDDAT 
7 $ 

#4- (SP) 
#146,8(SP) 

#2, (SP) 
pc,a(SP)* 

#10, (SP) 

SGDDAT 

IF RMEC2 NOT RESET 
RMEC2I,$BDDAT 
8$ 

#4, (SP) 
#i5o,a(SP) 
#2,(SP) 
pc.a(sp)* 

#10, (SP) 


CHECK RMMR2 
CLEAR REQA, REQB 

;EXPECT TEST BIT ON 
COMPARE EXPECTED t RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 

EXPECT ZEROS 

CHECK RMEC2 

BRANCH IF 0 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 


IF RMER2 NOT RESET 
RMER2I,$BDDAT ; CHECK RMER2 
9$ ; BRANCH IF N 

#4, (SP) .MOVE SP TO 

#U7,a(SP) .-WRITE NUNBE 

#2, (SP) .-MOVE SP TO 

PC.a(SP)* .-REPORT THE 

#10, (SP) .-MOVE SP TO 


.-BRANCH IF NO ERROR 
.-MOVE SP TO ERROR CALL 
.-WRITE NUMBER OF ERROR IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.-REPORT THE ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 
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E 2 


SEQ 0223 


115 



.‘AUGMENT RETURN ADDRESS 

IF ANY ERROR WAS FOUND 

116 054136 

062716 

000004 


ADD 

#4 ,(SP) 

.-MOVE SP TO ERROR CALL 

117 054142 

105776 

000000 


TSTB 

B(SP) 

;WAS AN ERROR DETECTED?? 

118 054146 

001403 



BEQ 

11$ 

;N0! ! 

119 054150 

062716 

000004 


ADD 

#4, (SP) 

; YES - MOVE SP TO ERROR RETURN 

120 054154 

000402 



BR 

12$ 


121 054156 

162716 

000004 

11$: 

SUB 

#4, (SP) 

;MOVE SP BACK TO NO ERROR RETURN 

122 054162 

000240 


12$: 

NOP 



123 054164 

000207 



RTS 

PC 

.‘RETURN TO USER 


SEQ 0224 
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F 2 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


24 

25 

26 


31 


38 

39 

40 

41 


51 


56 

57 


.S8TTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
THE ERROR NUMBER IN THE USERS ERROR CALL. 


USER'S SUBROUTINE CALL: 


(1) 

JSR 

PC,DTASTS 

(2) 

BR 

?? 

(3) 

NOP 


(4) 

ERROR 


(5) 

JSR 

PC,8<SP)+ 

(6) 

?? 



054166 




DTASTS: 







.•CLEAR USER'S 

ERROR CALL AND El 

054166 

062716 

000004 



ADD 

#4, (SP) 

054172 

1C5076 

OOOOOC 



CLRB 

a(sp) 

054176 

162716 

000004 



SUB 

*4.(SP) 

49i 

054202 

005037 

057602 



CLR 





.•REPORT 

ANY CONTROL BUS PARITY 





;I.E., i 

MCPE = 

1 

054206 

032737 

020000 

001336 


BIT 

#MCPE,RMCS1I 

054214 

001422 




BED 

IS 

054216 

013737 

001336 

001140 


MOV 

RMCS1I.SGDDAT 

#MCPE,SGDDAT 

054224 

042737 

020000 

001140 


BIC 

054232 

013737 

001336 

001142 


MOV 

RMCS1I.SBDDAT 

*4,(SP) 

«l3.a(SP) 

054240 

062716 

000004 



ADD 

054244 

112776 

000013 

000000 


MOVB 

054252 

162716 

000002 



SUB 

0 2,(SP) 

054256 

004736 




JSR 

pc.atsPH 

054260 

054262 

000466 



1$: 

BR 

4$ 





.•REPORT 

ANY CONTROL BUS PARITY 





; I . E . , 

PAR = 

1 AND DPE = 0 

054262 

032737 

000010 

001352 


BIT 

#PAR,RMER1I 

054270 

001435 




BEQ 

3$ 

054272 

032737 

000010 

001400 


BIT 

4DPE.RMER2I 

054300 

001031 




BNE 

3$ 

054302 

013737 

001352 

001140 


MOV 

RMER1I.SGDDAT 

054310 

042737 

000010 

001140 


BIC 

#PAR. SGDDAT 

RMER1I.SBDDAT 

#4.(SP) 

054316 

013737 

001352 

001142 


MOV 

054324 

062716 

000004 



ADD 

054330 

112776 

000050 

000000 


MOVB 

#50,a<SP> 

054336 

032737 

001000 

001346 


BIT 

#MXF.RMCS2I 

054344 

001003 




BNE 

2S 

054346 

112776 

000274 

000000 


MOVB 

#274,a(SP) 

054354 

162716 

000002 


2$: 

SUB 

#2,(SP) 

054360 

004736 




JSR 

pc.a(sp>* 

054362 

000425 




BR 

4$ 


RETURN HERE IF NO DATA ERRORS 
RETURN HERE TO REPORT AN ERROR 
SUB WRITES ERROR NUMBER 
USER RETURNS FOR MORE CHECKS 
SUB RETURNS HERE AFTER ALL 
ERRORS ARE REPORTED 


MOVE SP TO USER'S ERROR 
CLEAR LOW ORDER BYTE OF TRAP 
RESTORE SP TO NO ERROR 
CLEAR ERROR FLAGS 


ERROR WHILE READING REMOTE REGISTERS, 


WAS THERE A PARITY ERROR?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 


ERROR WHILE WRI7TING REMOTE REGISTERS, 


WAS THERE A PARITY ERROR?? 
NO!! 

DATA PARITY ERROR ? 

YES 1 1 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
DID MXF GET SET?? 

YES' ' 

NO CHANGE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 


;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 
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SEO 0225 


58 

59 

60 
61 

62 054364 

63 054364 

64 054372 

65 054374 

66 054402 

67 054410 

68 054416 

69 054422 

70 054430 

71 054434 

72 054436 

73 

74 

75 054436 

76 054442 

77 

78 054446 

79 

80 
81 
82 

83 054446 

84 054454 

85 054456 

86 054464 

87 054472 

88 054500 

89 054506 

90 054510 

91 054516 

92 054520 

93 054524 

94 054532 

95 054536 

96 054540 

97 054544 

98 054546 

99 
100 
101 

102 054546 

103 054552 

104 054560 

105 054564 

106 054566 

107 054572 

108 054574 

109 

110 

111 054574 

112 054602 

113 

114 054604 


032737 

001425 

013737 

042737 

013737 

062716 

112776 

162716 

004736 


162716 

000137 


001000 001346 


001346 

001000 

001346 

000004 

000275 

000002 


000010 

057554 


032737 

001447 

013737 

042737 

013737 

032737 

001404 

032737 

001013 

062716 

112776 

162716 

004736 

162716 

000413 


062716 

112776 

162716 

004736 

162716 

000240 


032737 

001432 


001352 

020000 

001352 

010000 


001140 

001140 

001142 

000000 


020000 001352 


000004 

000276 

000002 

000010 


000004 

000277 

000002 

000010 


.•MECHANICAL POSITIONING 

; FIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
:CODE AND GO BIT WERE LOADED 


#HXF,RMC$2I 

5$ 

RMCS2I.SGDDAT 

#MXF.8GDDAT 

RMCS2I.8BDDAT 

#4.(SP) 

#275.i(SP) 

#2,(SP) 

pc.acsp)* 


WAS HISSED TRANSFER*' SET?? 
NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER’S ERROR *.ALl 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 


001140 

001140 

001142 

001350 


000100 001350 


000000 


.RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING 
SUB #10, (SP) .'MOVE SP TO NO ERROR 

JMP 46S .-SKIP TO END OF SUB 


REPORT AN ERROR IF **OPr’ ERROR 
AND 'MOL" ARE SET, BUT "VV" IS 
‘MOL" 

BIT #0PI,RMER1 I 
BEG 8$ 


BIT 

BEG 

MOV 

BIC 

MOV 

BIT 

BEG 

BIT 

6NE 

ADD 

M0V8 

SUB 

JSR 

SUB 

BR 


RMER1I,SGDDAT 

#0PI.8GDDAT 

RMER1I.88DDAT 

#MOL,RMDSI 

68 

fVV.RMDSI 

7$ 

#4, (SP) 

#276, a (SP) 
#2,(SP) 

pc,a($p)+ 

#10. (SP) 

88 


OCCURRED DUE TO *MOL" - 0, OR IF *t)PI" 
RESET, INDICATING AN INTERMITTENT 

;IS '10PI" SET?? 

;N0! ! 

.•EXPECTED STATUS 

.‘RECEIVED STATUS 
;WAS MEDIUM OFF LINE?? 

•YES 1 ' 

; WAS 'MOL" INTERMITTENT?? 

;N0! ! 

.-MOVE SP TO USER'S ERROR CALL 
; WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.‘RESTORE SP TO NO ERROR 


.•REPORT 'T)PI" ERROR, WHICH IS DUE TO "ON CYLINDER" NOT DROPPING OR 
;'MUN" TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS) 


000000 


#4.(SP) 
#277.a(SP) 
#2.(SP) 
PC.3(SP)* 
#10. (SP) 


MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


010000 001400 


013737 001400 001140 


.•LOOK FOR "IVC" ERROR DURING COMMAND INITIATION 

BIT #IVC.RHER2I ;WAS THERE AN "IVC" ERROR?? 

BEG 108 ;N0! ! „ 

.•REPORT "IVC" ERROR DUE TO "VV" = 0. OR REPORT ERRONEOUS "IVC" ERROR 
MOV RMER2I .SGDDAT .‘EXPECTED STATUS 


j 


H 2 


SEQ 0226 
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115 054612 

116 054620 

117 054626 

118 054632 

119 054640 

120 054646 

121 054650 

122 054656 

123 054662 

124 054664 

125 054670 

126 

127 

128 054670 

129 054676 

130 

131 054700 

132 054706 

133 054710 

134 054716 

135 054724 

136 054732 

137 054736 

138 054744 

139 054750 

140 054752 

141 054756 

142 054760 

143 

144 

145 054760 

146 054766 

147 054770 

148 054776 

149 055004 

150 055012 

151 055016 

152 055024 

153 055030 

154 055032 

155 055036 

156 055040 

157 

158 

159 0550*0 

160 055046 

161 055050 

162 055056 

163 055064 

164 055072 

165 055076 

166 055104 

167 055110 

168 055112 

169 055116 

170 055120 

171 


042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 


032737 

001510 

032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


010000 

C01400 

000004 

000300 

000100 

000301 

000002 

000010 


001140 

001142 

000000 

001350 

000000 


000007 001352 


000002 001352 


001352 

000002 

001352 

000004 

000302 

000002 

000010 


001140 

001140 

001142 

000000 


000001 001352 


001352 

000001 

001352 

000004 

000303 

000002 

000010 


001352 

000004 

001352 

000004 

000304 

000002 

000010 


#IVC.$GDDAT 

RMER2I,$BDDAT 

#4.(sp$ 

#3C0,8(SP) 

fVV.RMDSI 

9$ 

#30i,acsp> 

#2,(SP) 

pc 4 a<sp>* 

#10, (SP) 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER IN CALL 
WAS VOLUME VALID?? 

NO* ' 

CHANGE ERROR FWMBER 
MOVE SP TO RETURN IF ERROR 
REPORT "JVC" ERROR AND RETURN 
RESTORE SP TO NO ERROR 


001140 

001140 

001142 

000000 


; SEE IF "ILF" OR **MR" IS SET 
BIT #ILR!ILF!RMR, 

BEQ 13$ 

.•REPORT AN ERROR IF "ILR" IS 


BI1 #ILR,RNER1I 

BEQ 11$ 

MOV RMER1I ,$GDDAT 

BJC #JLR,$GDDAT 

MOV RMER1I,$8DDAT 

ADD #4,(SP) 

MOVB #362, 8 (SP) 

SUB #2.(SP> 

JSR PC.a(SP)* 

SUB #l6, (SP) 

NOP 


RMER1I 

;N0 ERRORS DETECTED 
SET 

;WAS "ILR" DETECTED?? 
;N0! ! 

.•EXPECTED STATUS 


.•REPORT AN ERROR IF 


IS SET 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NIMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


BIT #ILF,RMER1I ;WAS "ILF" DETECTED?? 

BEQ 12$ ;N0! ! 

MOV RMER1I ,$GDDAT .-EXPECTED STATUS 

BIC #ILFj$GDDAT 

MOV RMERll.$BDDAT .-RECEIVED STATUS 

ADD #4 a (SP5 .-MOVE SP TO USER'S ERROR CALL 

MOVB #363,8(SP) .-WRITE ERROR NUMBER IN CALL 

SUB #2,(SP) .-MOVE SP TO RETURN IF ERROR 

JSR PC.8(SP>* .-REPORT ERORR AND RETURN 

SUB #l6, (SP) .-RESTORE SP TO NO ERROR 

NOP 

12 $: 

.-REPORT AN ERROR IF 'WIR" IS SET „ 

BIT #RMR,RMER1I ;UAS **MR" DETECTED?? 

BE8 13$ ;N0!! 

MOV RMER1I,$GDDAT .-EXPECTED STATUS 

BIC #RMR.$GDDAT 

MOV RMERll.$BDDAT ; RECEIVED STATUS 

ADD #4.(SPJ .-MOVE SP TO USER'S ERROR CALL 

MOVB #364,8(SP) .'WRITE ERROR NUMBER IN CALL 

SUB 02, (SP) .'MOVE SP TO RETURN IF ERROR 

JSR PC,8(SPH .-REPORT ERROR AND RETURN 

SUB #16. (SP) .-RESTORE SP TO NO ERROR 

NOP 

13$. 

.-DETERMINE WHETHER OR NOT "IAE" SHOULD BE SET AND CHECK FOR ERROR 


.-WAS "ILF" DETEC 
-NO' ' 

•EXPECTED STATUS 


000004 001352 


001140 

001140 

001142 

000000 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERORR AND RETURN 
RESTORE SP TO NO ERROR 


WAS **MR" DETECTED?? 

NO* ' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


SEQ 0227 
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172 055120 

173 055126 

174 055134 

175 055142 

176 055144 

177 

178 055152 

179 055160 

180 

181 055162 

182 055170 

183 055172 

184 055200 

185 055202 

186 055210 

187 055212 

188 055220 

189 055222 

190 055230 

191 055232 

192 

193 055236 

194 055244 

195 055252 

196 055260 

197 055262 

198 055270 

199 055272 

200 055276 

201 055304 

202 055310 

203 055312 

204 055316 

205 

206 

207 055316 

208 055324 

209 055332 

210 055340 

211 055346 

212 055354 

213 055356 

214 055364 

215 055366 

216 055372 

217 055400 

218 055404 

219 055406 

220 055412 

221 

222 055414 

223 

224 

225 055414 

226 055422 

227 055424 

228 055430 


012737 

052737 

023727 

101035 

042737 

123737 

101026 

123727 

101420 

032737 

001416 

123727 

101410 

032737 

001406 

123727 

101002 

005037 

013737 

042737 

023737 

001004 

042737 

000412 

062716 

112776 

162716 

004736 

162716 


013737 

042737 

013737 

042737 

032737 

001417 

032737 

001032 

062716 

112776 

162716 

004736 

162716 

000417 


002000 

040000 

001446 


001140 

001352 

175777 

001140 


001140 

057602 

001060 


040000 057602 
001421 001335 

001420 000035 
010000 001444 
001420 000036 
001000 001444 
001420 000037 


001142 

001142 

001142 


040000 057602 


000004 

000305 

000002 

000010 


001400 

137777 

057602 

137777 

040000 


000000 


040000 057602 


000004 

000306 

000002 

000010 


MOV 

#IAE.$GDDAT 

.•SETUP FOR "IAE" = 1 

BIS 

USKI ,49$ 

.•SETUP FOR "SKI" = 1 

CMP 

RMDC0,#560. 

.GREATER THAN LAST CYLINDER ? 

BHI 

15$ 

; YES - CYLINDER IS INVALID 

BIC 

#SKI,49$ 

.•RESET SKI FLAG 

CMP8 

RMDAO+1 .LSTRK+1 

.•GREATER THAN LAST TRACK ? 

BHI 

15$ 

; YES - TRACK IS INVALID 

CMPB 

RMDA0.#29. 

;IS SECTOR > 29. ? 

BLOS 

14$ 

;N0 

BIT 

#FMT16,RH0F0 

; 18 BIT FORMAT ? 

BEQ 

15$ 

; YES - SECTOR IS INVALID FOR 

CMP8 

RMDA0,#30. 

;IS SECTOR > 30. ? 

BLOS 

14$ 

;N0 

BIT 

fSSEI.RMOFO 

;JS SSEI CLEAR ? 

BEQ 

15$ 

;YES - SECTOR IS INVALID FOR 

CMP8 

RMDA0,#31. 

;IS SECTOR > 31. ? 

BHI 

15$ 

,*YES - SECTOR IS INVALID 

CLR 

$GDDAT 

;"IAE" SHOULD = 0 

MOV 

RMER1I ,$8DDAT 

.-GET RECEIVED STATUS 

BIC 

#*CIAE,$8DDAT 


CMP 

$GDDAT,$8DDAT 

; IS "IAE" STATUS OK?? 

BNE 

16$ 

;N0!! 

BIC 

#SKI,49$ 

;IAE OK - SKI SHOULD BE 0 

BR 

17$ 


ADD 

#4, (SP) 

.-MOVE SP TO USER'S ERROR CALL 

MOVB 

#3&5,a(SP) 

.-WRITE ERROR NUMBER 

SUB 

#2,(SP) 

.-MOVE SP TO RETURN IF ERROR 

JSR 

pc.a(sp)* 

; REPORT ERROR AND RETURN 

SUB 

#10, (SP) 

;MOVE SP TO NO ERROR 


001142 

001142 

001140 

001140 

001400 


;REP0RT AN ERROR IF “SKI** IS SET 


000000 


MOV RMER21 # $BODAT 

BIC #*CSKI,$8DDAT 

MOV 49$,$GDDAT 

BIC #*CSKI.$GDDAT 

BIT #SKI,RMER2I 

BEQ 18S 

BIT #SKI ,495 

BNE 19S 

ADD #4.(SP) 

MOVB #306 £ a(SP> 

SUB #2.(SP) 

jsr pc.a<sp>+ 

SUB #l6.(SP) 

BR 19S 


r AND "IAE" STATUS WAS OK 
.•RECEIVED STATUS 

.•EXPECTED STATUS 

;WAS "SK I" SET?? 

•NO' 1 

•WAS ‘SKI CAUSED BY IAE = 0?? 
;YES - DON'T REPORT SKI 
.•MOVE SP TO USERS ERROR CALL 
.•WRITE ERROR NUMBER 
.-MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.•MOVE SP TO NO ERROR 


032737 040000 057602 
001413 

062716 000004 
112776 000307 000000 


.•REPORT AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED 


BIT 

BEQ 

ADD 

MOVB 


#SKI.49$ 

19$ 

#4. (SP) 

#367,a(SP> 


SHOULD SKI BE SET?? 

NO' 1 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
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SEO 0 jtc 


229 055436 

230 055442 

231 055444 

232 055450 

233 055452 

234 

235 

236 055452 

237 055460 

238 

239 

240 055462 

241 055470 

242 055472 

243 055500 

244 055506 

245 055514 

246 055520 

247 055526 

248 055532 

249 0^5534 

250 055540 

251 055542 

252 

253 

254 055542 

255 055550 

256 055552 

257 055560 

258 055562 

259 055570 

260 055576 

261 055604 

262 055610 

263 055616 

264 055622 

265 055624 

266 055630 

267 055632 

268 

269 

270 055632 

271 055640 

272 055642 

273 055650 

274 055656 

275 055664 

276 055670 

277 055676 

278 055700 

279 055704 

280 055706 

281 
282 

283 055706 

284 055714 

285 


162716 

C04736 

162716 

000240 


032737 

001512 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001422 

013737 

042737 

013737 

062716 

112776 

004736 

162716 

000240 


032737 

001527 


000002 

000010 


006200 001400 


000200 001400 


001400 

000200 

001400 

000004 

000310 

000002 

000010 


001140 

001140 

001142 

000000 


002000 001400 
010000 001350 


001400 

002000 

001400 

000004 

000311 

000002 

000010 


001140 

001140 

001142 

000000 


001400 

004000 

001400 

000004 

000312 

000010 


#2.(SP) 

pc.acspj* 

#i6.(sp> 


MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RES JRE SP TO NO ERROR 


.-LOOK FOR 'ISC" OR 'IBC" OR 'DVC" IN ERROR REGISTER #2 
BIT #LSC!LBC!DVC,RMER2I 

BEO 22$ ;N0 ERRORS SET 


.•REPORT ANY DEVICE FAULT, I.E. 
BIT #DVC,RNER2I 

BEQ 20$ 

NOV RMER2I ,$GDDAT 

BIC #DVC.$GDDAT 

MOV RMER2I.$BDDAT 

ADD #4.(SP) 

movb #3io,atsp) 

SUB #2, (SP) 

jsr pc.a(sp>* 

SUB #10, (SP) 

NOP 


; REPORT LOSS OF BIT CLOCK, I.E 
BIT #LBC,RMER2I 

BEQ 21$ 

BIT #MOL,RMDSI 

BEQ 21$ 

MOV RMER2I,$GDDAT 

BIC #LBC.$GDDAT 

MOV RMER2I.$BDDAT 

ADD #4.(SP) 

M0V8 #311,a(SP) 

SUB #2,(SP) 

jsr pc.a(SP)+ 

SUB #10. (SP) 

NOP 


'DVC" = 1 
; IS "DVC" = 1?? 

•NO 1 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 
.•MOVE SP TO USERS ERROR 
.•WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN IF ERROR 
; REPORT ERROR AND RETURN 
.•RESTORE SP TO NO ERROR 


’IBC" = 1, IF ‘MOL" = 1 
; IS LBC SET?? 

•NO 1 1 

•WAS LBC ERROR BY MOL = 0 
•YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USER’S ERROR CALL 
.-WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.•RESTORE SP TO NO ERROR 


004000 001400 


001140 

001140 

001142 

000000 


.•REPORT LOS OF SYSTEM CLOCK, I.E.. ISC * 1 

BIT #LSC.RMER2I ;IS •ISC’* = 1?? 

BEQ 22$ ;N0! ! 

MOV RMER2I.$GDDAT .EXPECTED STATUS 


BEQ 22$ 

MOV RMER21 ,$GDDAT 

BIC #LSC.$GDDAT 

MOV RMER2I ,$8DDAT 

ADD #4.(SP) 

MOVB #312.a(SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 

NOP 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


054000 001352 


.-LOOK FOR *tWS" OR 'DTE" OR *VLE" IN ERROR REGISTER #1 
BIT #UNS!DTE!WLE.RMER1I 

BEQ 27$ .NO BITS SET 

.•REPORT *\JNS" ERROR IF "DVC" = 0 


032737 

040000 

001352 

BIT 

#UNS,RMER1 I 

001427 



BEQ 

23$ 

032737 

000200 

001400 

BIT 

ADVC.RMER2I 

001023 



BNE 

23$ 

013737 

001352 

001140 

MOV 

RMER1I ,$GDDAT 

042737 

040000 

001140 

BIC 

#UNS.$GDDAT 
RMERlI ,$BDDAT 
#4.(SP) 
#3i3,a(SP) 

013737 

001352 

001142 

MOV 

062716 

000004 


ADD 

112776 

000313 

000000 

MOVB 

162716 

000002 


SUB 

#2, (SP) 

004736 



JSR 

pc.a(SP)* 

#10, (SP) 

162716 

000010 


SUB 



23$: 





.•REPORT ANY DRIVE TIMING ERROR 

032737 

010000 

001352 

BIT 

#DTE, RMERlI 

001423 


BEQ 

24$ 

013737 

001352 

001140 

MOV 

RMER1I.$GDDAT 

042737 

010000 

001140 

BIC 

#DTE.$GDDAT 
RMERlI .$BDDAT 
#4,(SP) 
#314,a(SP) 

013737 

001352 

001142 

MOV 

062716 

000004 


ADD 

112776 

000314 

000000 

MOVB 

162716 

000002 


SUB 

#2,(SP) 

004736 



JSR 

pc.a(SP)* 

#10, (sp) 

162716 

000010 


SUB 


2 AS: 
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286 055716 

287 055724 

288 055725 

289 055734 

290 055736 

291 055744 

292 055752 

293 055760 

294 055764 

295 055772 

296 055776 

297 056000 

298 056004 

299 

300 

301 056004 

302 056012 

303 056014 

304 C56022 

305 056030 

306 056036 

307 056042 

308 056050 

309 056054 

310 056056 

311 056062 

312 

313 

314 

315 056062 

316 056070 

317 056072 

318 056100 

319 056106 

320 C56114 

321 056120 

322 056126 

323 056134 

324 056136 

325 056144 

326 056146 

327 056154 

328 056162 

329 056166 

330 056170 

331 

332 056174 

333 

334 

335 056174 

336 056200 

337 056204 

338 056206 

339 056212 

340 056216 
541 
342 


SEO 0229 


IS "UNS" SET?? 

NO!! 

WAS *\JNS CAUSED BY 't>VC**?? 
YES' 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

RESTORE SP TO NO ERROR 


I.E., DTE = 1 
;IS DTE SET?? 

;N0! ! 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
.•MOVE SP TO USER'S ERROR CALL 
.‘WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
;MOVE SP TO 10 ERROR 


032737 

004000 

001352 


BIT 

001441 




BEQ 

013737 

001352 

001142 


MOV 

013737 

001352 

001140 


MOV 

052737 

004000 

001140 


BIS 

062716 

000004 



ADD 

112776 

000315 

000000 


MOVB 

032737 

004000 

001350 


BIT 

001404 




BEQ 

032737 

000010 

001412 


BIT 

001406 




BEQ 

112776 

000316 

000000 

25$: 

MOVB 

042737 

004000 

001140 


BIC 

162716 

000002 


26$: 

SUB 

004736 




JSR 

162716 

000010 



SUB 


.•REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE IS NOT 
.•WRITE PROTECTED. OR IF FUNCTION WAS NOT A WRITE 


#WLE .RMERlI 
27$ 

RMER1I.SBDDAT 

RMER1I.SGDDAT 

#WLE . SGDDAT 

#4,(SP) 

#3l5.i(SP) 

#WRL,RMDSI 

25$ 

#8IT3,RMCS10 

26$ 

#316,a(SP) 

#WLE,$GDDAT 

#2,<SP) 

PC.a(SP)* 

#10. (SP) 


WAS ’^LE" SET?? 

NO!! 

RECEIVED STATUS 
EXPECTED STATUS 

.•MOVE SP TO USERS ERROR CALL 
; WRITE ERROR NUMBER IN CALL 
.-WAS DRIVE WRITE PROTECTED?? 
•NO 1 1 

•WAS* COMMAND A WRITE?? 

•YES' 1 

•CHANGE ERROR NUMBER 


MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


27$: 


062716 

000004 


ADD 

#4,(SP) 

105776 

000000 


TSTB 

a(SP) 

001404 



BEQ 

28$ 

162716 

000004 


SUB 

#4 .(SP) 
42i 

000137 

057214 


JNP 

162716 

000004 

28$: 

SUB 

#4,(SP) 


.-OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 
*/ -MOVE SP TO USER'S ERROR 

WAS ERROR DETECTED?? 

NO - DO DATA CHECKS 
RESTORE SP 
SKIP DATA CHECKS 
RESTORE SP 

; CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND 


SEQ 0230 
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343 

344 056222 

345 056230 

346 056236 

347 056244 

348 056246 

349 056254 

350 

351 

352 056256 

353 056264 

354 

355 

356 056266 

357 056274 

358 056276 

359 056304 

360 056312 

361 056320 

362 056324 

363 056332 

364 056336 

365 056340 

366 056342 

367 

368 

369 056342 

370 056350 

371 056352 

372 056360 

373 056366 

374 056374 

375 056400 

376 056406 

377 056412 

378 056414 

379 056416 

380 

381 

382 056416 

383 056424 

384 056426 

385 056434 

386 05644 5 

387 056450 

388 056454 

389 056462 

390 056466 

391 056470 

392 

393 

394 

395 056472 

396 056500 

397 056502 

398 056510 

399 056516 


013737 

042737 

022737 

001512 

032737 

001106 


032737 

001533 


032737 

001422 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

000501 


032737 

001422 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

000453 


032737 

001453 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

000425 


001412 

177700 

000063 


057604 

057604 

057604 


; IF HEADER COMPARE IS NOT INHIBITED 


002000 001370 


000620 001352 


000400 001352 


001352 

000400 

001352 

000004 

000317 

000002 


001140 

001140 

001142 

000000 


000020 001352 


001352 

000020 

001352 

000004 

000320 

000002 


001140 

001140 

001142 

000000 


000200 001352 


001352 

000200 

001352 

000004 

000321 

000002 


RMCS10.50S 
#*CFNCMSK.50$ 
#Wh! 60.50$ 

31$ 

#HCI .RMOFI 
31 S 


; SEE IF ANY HEADER ERRORS ARE SET. I.E.. TER 
BIT #HCRC i FER ! HCE .RMER1 I 

8EQ 33$ ;N0 ERRORS SET 


; STRIP AND STORE FUNCTION CODE 

;WAS FUNCTION WRITE HEADER t DATA?? 
; YES - SKIP HEADER CHECKS 
;WAS HCI SET?? 

; YES - SKIP HEADER CHECKS 

:T. I.E.. *TER" OR “HCRC" OR “HCE" 


.•REPORT HEADER CRC ERROR IF SET 
BIT #HCRC.RMER1I 

BEQ 29$ 

MOV RMER1I ,$GDDAT 

BIC #HCRC,$GDDAT 

MOV RMER1I ,$BDDAT 

ADD #4 f (SP) 

MOVB #317.i<SP> 

SUB #2,(SP> 

JSR PC.a(SP)* 

BR 32$ 


.'REPORT FORMAT ERROR IF SET 
BIT JVFER.RMER1I 

BEQ 30$ 

MOV RMER1I ,$GDDAT 

BIC #FER.$GDDAT 

MOV RMER1I,$BDDAT 

ADD #4.(SP) 

MOVB #320. a (SP) 

SUB #2,(SP) 

JSR PC.3CSP)* 

BR 32$ 


WAS HCRC SET?? 

NO* 1 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USERS ERROR 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 


WAS ’TER" SET?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USERS ERROR 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 


001140 

001140 

001142 

000000 


032737 000620 001352 
001425 

013737 001352 001140 
042737 000620 001140 
013737 001352 001142 


.•REPORT HEADER COMPARE ERROR IF SET 

BIT #HCE,RMER1I .'WAS ‘HCE“ SET?? 

BEQ 33$ .’NO!! 

MOV RMER1 1 .$GDDAT .'EXPECTED STATUS 

BIC #HCE.S6DDAT 

MOV RMERll.SBDDAT ; RECEIVED STATUS 

ADD #4.(SP5 ;MOVE SP TO USER'S ERROR 

MOVB #32l.a(SP> .'WRITE ERROR NUMBER 

SUB #2. (SP) .'MOVE SP TO RETURN IF ERROR 

JSR PC.a(SP)* ; REPORT ERROR AND RETURN 

BR 32$ 

.•THERE SHOULD BE NO HEADER ERRORS BECAUSE 
; .COMMAND WAS WRITE HEADER AND DATA, OR 

• .HEADER COMPARE INHIBIT WAS SET 

$1$: BIT #HCE ! FER ! HCRC .RMER1 I „ CT 

BEQ 33$ ;N0 ERRORS WERE SET 

MOV RMER1I ,$GDDAT .'EXPECTED STATUS 

BIC #HCE! FER! HCRC, $GDDAT 

MOV RMERll.SBDDAT .'RECEIVED STATUS 


SEO 0231 


| CZRNFAO RM80 FCTNl PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 34-7 
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


400 056524 

401 056530 

402 056536 

403 056542 

404 056544 

405 056550 

406 

407 056554 

408 

409 

410 

411 056554 

412 056562 

413 056564 

414 056570 

415 

416 

417 056570 

418 056576 

419 056600 

420 056606 

421 056614 

422 056622 

423 056626 

424 056634 

425 056642 

426 056644 

427 056652 

428 056660 

429 

430 056662 

431 056670 

432 056672 

433 056676 

434 056700 

435 056706 

436 056712 

437 056714 

438 

439 056720 

440 

441 

442 056720 

443 056726 

444 056730 

445 056736 

446 056744 

447 056752 

448 056756 

449 056764 

450 056770 

451 056772 

452 056776 

453 

454 057002 

455 

456 


062716 

112776 

162716 

004736 

162716 

000137 


032737 

001002 

000137 


032737 

001450 

013737 

042737 

013737 

062716 

112776 

032737 

001021 

112776 

032737 

001007 

032737 

001406 

162716 

000410 

112776 

162716 

004736 

162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000137 


000000 


000004 

000322 

000002 

000010 

057214 


000010 057604 
057002 


100000 001352 


001352 

100000 

001352 

000004 

000323 

004000 

000324 

000100 


001140 

001140 

001142 

000000 

001370 

000000 

001352 


000020 057604 


000004 

000325 

000002 

000010 


000000 


001346 

000400 

001346 

000004 

000326 

000002 

000010 

057214 



ADD 

#4. (SP) 

MOVE SP TO USER'S ERROR CALL 


MOVB 

#322.3(SP) 

WRITE ERROR NUMBER 


SUB 

#2.( SP) 

MOVE SP TO RETURN IF ERROR 


JSR 

pc.a(sp)* 

REPORT ERROR AND RETURN 

32$: 

SUB 

#i6.(sp) 

MOVE SP TO NO ERROR 

33$: 

JMP 

42$ 

OMIT FURTHER DATA CHECKS 


; I F COMMAND WAS A WRITE COMMAND. GO DO WRITE ERROR CHECKS. OTHERWISE 
;D0 READ ERROR CHECKS 

BIT #8IT3,50$ ;WAS THIS A WRITE COMMAND? 

BNE 34$ ;N0! ! 

JMP 39$ ;G0 DO WRITE STATUS CHECK 


.•REPORT DATA CHECK IF SET 
BIT #DCK.RMER1I 

BEQ 37$ 

MOV RMER1I,$GDDAT 

BIC #DCK.$GDDAT 

MOV RMER1I.$BDDAT 

ADD #4.(SP) 

MOVB #323. 8 (SP) 

BIT fECI.RMOFI 

BNE 36$ 

MOVB #324. a (SP) 

BIT #ECH.RMER1I 

BNE 35$ 


;DATA CHECK ERROR?? 

;N0! i 

.•EXPECTED STATUS 

.‘RECEIVED STATUS 

.‘MOVE SP TO USER'S ERROR 

; WRITE ERROR NUMBER 

.-WAS ECC CORRECTION DISABLED?? 

•YES' ' 

‘CHANGE TO RECOVERABLE ERROR 
;IS ERROR RECOVERABLE?? 

;N0 ! ! 


:D0 NOT REPORT RECOVERABLE ERROR 

IF READ COMMAND 


BIT 

#8IT4.50$ 

WAS THIS A READ COMMAND ?? 


BEQ 

36$ 

NO ! ! 


SUB 

#4. (SP) 

RESTORE SP 


BR 

3 ?i 

SKIP ERROR - DATA WILL BE 

35$: 

MOVB 

#325. a (SP) 

CHANGE TO NON RECOVERABLE 

36$: 

SUB 

02 ASP) 

MOVE SP TO RETURN IF ERROR 

JSR 

pc.a(SP)* 

REPORT ERROR AND RETURN 

37$: 

SUB 

#10. (SP) 

RESTORE SP TO NO ERROR 


000400 001346 


001140 

001140 

001142 

000000 


; REPORT DATA BUS PARITY ERROR 
BIT #MDPE.RMCS2I 

BEQ 38$ 

MOV RMCS2I.$GDDAT 

BIC #MDPE,$GDDAT 

MOV RMCS2I.$BDDAT 

ADD #4.(SP) 

MOVB #3$6. a (SP) 

SUB #2,(SP) 

JSR PC.a(SP>* 

SUB #l6.(SP) 

38$: JMP 42$ 


IF SET. I.E.. MDPE = 1 
.•PARITY ERROR SET?? 
;N0! ! 

.•EXPECTED STATUS 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
SKIP WRITE STATUS CHECK 


.•TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF 't)M M = 1 


N 2 


457 

458 


057002 
057010 

459 057012 

460 057020 

461 057026 

462 057034 

463 057040 

464 057046 

465 057052 

466 057054 

467 057060 

468 

469 

470 057060 

471 057066 

472 057070 

473 057076 

474 057104 

475 057112 

476 057116 

477 057124 

478 057130 

479 057132 

480 057136 

481 

482 

483 057136 

484 057144 

485 057146 

486 057154 

487 057162 

488 057170 

489 057174 

490 057202 

491 057206 

492 057210 

493 057214 

494 

495 

496 057214 

497 057222 

498 057224 

499 057232 

500 057240 
057246 
057252 
057260 
057264 
057266 

506 057272 

507 

508 057272 

509 057276 

510 057302 

511 057306 

5 12 

513 


501 

502 

503 

504 

505 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


032737 

001423 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 


013746 

042716 

022726 

001522 


000001 

001350 

000001 

001350 

000004 

000327 

000002 

000010 


000010 

001400 

000010 

001400 

000004 

000330 

000002 

000010 


000040 

001352 

000040 

001352 

000004 

000331 

000002 

000010 


100000 

001346 

100000 

001346 

000004 

000332 

000002 

000010 


001350 

147677 

010100 
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CK SUBROUTINE 




001350 


BIT 

#ON.RNDSI 

; I S OFFSET ON?? 



BEG 

40$ 

;N0 

001140 


MOV 

RMDSI,$GDDAT 

.•EXPECTED STATUS 

001140 


BIC 

#OM.$GDDAT 


001142 


MOV 

RNDSI.$8DDAT 

.‘RECEIVED STATUS 



ADD 

#4,(SP) 

;MOVE SP TO USER’S ERROR CALL 

OOOOOC 


MOVB 

#327.a<SP) 

.•WRITE ERROR NUMBER IN CALL 



SUB 

#2.<SP) 

.-MOVE SP TO RETURN IF ERROR 



JSR 

pc.aisp)* 

.•REPORT ERROR AND RETURN 



SUB 

#i6.(sp) 

;MOVE SP TO NO ERROR 


40$: 





.-TEST 

FOR DATA 

BUS PARITY ERROR 

; REPORT ERROR IF "DPE" = 1 

001400 


BIT 

#DPE,RNER2I 

;DATA PARITY ERROR?? 



BEQ 

41$ 

;N0! ! 

001140 


MOV 

RMER2I.$GDDAT 

.•EXPECTED STATUS 

001140 


BIC 

#DPE.$GDDAT 


001142 


MOV 

RMER2I.$8DDAT 

.•RECEIVED STATUS 



ADD 

#4.<SP) 

.-MOVE SP TO USER'S ERROR CALL 

000000 


MOVB 

#330.a(SP) 

.•WRITE ERROR NUMBER 



SUB 

#2,<SP) 

.•MOVE SP TO RETURN IF ERROR 



JSR 

pc.aisp)* 

.•REPORT ERROR AND RETURN 



SUB 

#i6.(sp) 

.‘MOVE SP TO NO ERROR 


41$: 





.-TEST 

FOR WRITE CLOCK FAILURE; 

REPORT ERROR IF ’\JCF" = 1 

001352 


BIT 

fWCF.RHERII 

;IS ’VCF" SET?? 



BEQ 

42$ 

;N0! ! 

001140 


MOV 

RMER1I.$GDDAT 

.•EXPECTED STATUS 


SEO 0232 


001140 

001142 

000000 


42$: 


BIC #WCF,$GDDAT 

MOV RMER1I f $8DDAT 

ADD #4.(SP> 

nova #33i,icsp> 

SUB #2.<SP> 

jsr pc.acsp)* 

SUB #l6,(SP> 


.•RECEIVED STATUS 

.‘MOVE SP TO USERS ERROR CALL 

.-WRITE ERROR NUMBER 

.•MOVE SP TO RETURN IF ERROR 

.•REPORT ERROR AND RETURN 

.•MOVE SP TO NO ERROR 



.•REPORT "DATA 

LATE" ERROR IF * 

DLT" = 1 

001346 

BIT 

#DLT.RMCS2I 

; IS "DLT" SET?? 


BEQ 

43$ 

;N0! ! 

001140 

MOV 

RMCS2I ,$GDDAT 

.•EXPECTED STATUS 

001140 

BIC 

#DLT,$GDDAT 


001142 

MOV 

RMCS2I .$BDDAT 

DECEIVED STATUS 


ADD 

#4.(SPS 

.‘MOVE SP TO USERS ERROR CALL 

000000 

MOVB 

#332.a<SP> 

; WRITE ERROR NUMBER 


SUB 

#2.(SP> 

.•MOVE SP TO RETURN IF ERROR 


JSR 

PC.a<SP>+ 

.•REPORT ERROR AND RETURN 


SUB 

#10. (SP) 

.•MOVE SP TO NO ERROR 


43$: 

.-LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS 

NOV RMDSI.-(SP) .-STACK DRIVE STATUS 

BIC #*C<PIP!MOL!VV>.(SP) ;CLEAR DONT CARES 
CMP #NOL!VV,<SP)> ;IS DRIVE STATUS OK?? 

BEQ 46$ .‘YES!! 

.•REPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR. 


B 3 


SEO 0233 
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514 

515 057310 

516 057316 

517 057320 

518 057326 

519 057330 

520 057336 

521 057344 

522 057352 

523 057356 

524 057364 

525 057370 

526 057372 

527 057376 

528 057400 

529 

530 

531 

532 057400 

533 057406 

534 057410 

535 057416 

536 057420 

537 057426 

538 057434 

539 057442 

540 057446 

541 057454 

542 057460 

543 057462 

544 057466 

545 

546 

547 

548 057466 

549 057474 

550 057476 

551 057504 

552 057506 

553 057514 

554 057522 

555 057530 

556 057534 

557 057542 

558 057546 

559 057550 

560 057554 

561 

562 

563 057554 

564 057560 

565 057564 

566 057566 

567 057572 

568 057574 

569 

570 057600 


032737 

020000 

001350 

BIT 

001430 



BEQ 

032737 

040000 

001400 

BIT 

001024 



BNE 

013727 

001350 

OC1140 

MOV 

042737 

020000 

001 140 

BIC 

013737 

001350 

001142 

MOV 

062716 

000004 


ADD 

112776 

000335 

000000 

MOVB 

162716 

000002 


SUB 

004736 



JSR 

162716 

000010 


SUB 

000240 


44$: 

NOP 


032737 

010000 

001350 

BIT 

001027 



BNE 

032737 

020000 

001352 

BIT 

001023 



BNE 

013737 

001350 

001140 

MOV 

052737 

010000 

001140 

BIS 

013737 

001350 

001142 

MOV 

062716 

000004 


ADD 

112776 

000334 

000000 

MOVB 

162716 

000002 


SUB 

004736 



JSR 

162716 

000010 


SUB 


; I . E , PIP = 1 AND SKI = 0 
fPIP.RMDSI 
44$ 

#SKI .RMER2I 
44$ 

RMDSI,$GDDAT 
#PI°,$GDDAT 
RMDSI.$BDDAT 
#4.(SP) 
#3$3.8(SP) 

0 2.(SP) 
PC.8(SP)+ 
#10. (SP) 


.‘REPORT ERROR IF MEDIUM IS NOT 
.•REPORTED. I.E.. MOL = OPI = 0 
#MOL«RMDSI 
45$ 

#0PI,RMER1I 
45$ 

RMDSI,$GDDAT 
#MOL.$GDDAT 
RMDSI.$BDDAT 
#4.(SP) 
#334.8(SP) 

02, (SP) 

P C.8(SP)+ 

#10, (SP) 

45$: 

.•REPORT ERROR IF VOLUME IS NOT 


032737 

000100 

001350 

0 ntr vn 

1 IVf A 

BIT 

• # »» **v 

fVV.RMDSI 

001027 




BNE 

46$ 

032737 

010000 

001400 


BIT 

#IVC.RMER2I 

001033 




BNE 

47$ 

013737 

001350 

001140 


MOV 

RMDS1,$GDDAT 

052737 

000100 

001140 


BIS 

#VV,$GDDAT 

013737 

001350 

001142 


MOV 

RMDSI,$BDDAT 

062716 

000004 



ADD 

#4. (SP) 

112776 

000335 

000000 


MOVB 

#3$5,8<SP) 

162716 

000002 



SUB 

02, (SP) 

004736 




JSR 

PC.8CSP)* 

162716 

000010 



SUB 

#i6.(sp) 




46$: 






.-AUGMENT THE RETURN ADDRESS 

062716 

000004 



ADD 

#4. (SP) 

105776 

000000 



TSTB 

8(SP) 

001403 




BEQ 

47$ 

062716 

000004 



ADD 

#4,(SP) 

000402 




BR 

48i 

162716 

000004 


47$: 

SUB 

#4,(SP) 

000207 



48$: 

RTS 

PC 


IS "PIP" SET?? 

NO 1 1 

WAS* "SKI" ERROR REPORTED?? 
YES-DONT REPORT PIP 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF E.TROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 


ON LINE AND OPI ERROR WAS NOT 

;IS MEDIUM ON LINE?? 

•YES* 1 

‘WAS OPI ERROR REPORTED?? 
•YES 1 1 

•EXPECTED STATUS 

.‘RECEIVED STATUS 
.-MOVE SP TO USER'S ERROR 
.■WRITE ERROR NUMBER 
.-MOVE SP TO RETURN IF ERROR 
.‘REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


VALID AND "I VC" ERROR WAS NOT 

;IS VOLUME VALID?? 

‘YES' 1 

•WASivC ERROR REPORTED?? 
•YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 

.‘MOVE SP TO USERS ERROR CALL 

.-WRITE ERROR NUMBER 

.-MOVE SP TO RETURN IF ERROR 

.•REPORT ERROR AND RETURN 

.‘MOVE SP TO NO ERROR 


ANY ERROR WAS FOUND 
.-MOVE SP TO ERROR CALL 
.-ANY ERROR?? 

*N0' 1 

•YES- MOVE SP TO ERROR RETURN 
.‘MOVE SP TO NO ERROR RETURN 
.•RETURN TO USER 



SEQ 0254 


CZRNFAO RM80 FCTNL PT3 MACRO V04.00 28- JAN-82 16:49:32 PAGE 34-10 
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


572 057602 000000 

573 057604 000000 


49$: .WORD 

50$: .WORD 


.•ERROR FLAGS 
; TEMPORARY STORAGE 
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SEQ 0235 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 057606 

28 

29 

30 057606 

31 057612 

32 057616 

33 

34 057622 

35 057626 

36 057632 

37 057636 

38 

39 

40 057640 

41 057646 

42 057650 

43 057656 

44 057660 

45 057666 

46 057674 

47 057702 

48 057706 

49 057714 

50 057720 

51 057722 

52 057726 

53 057730 

54 

55 

56 057730 

57 057736 


.SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 

THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 

THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
IF TRUE: 

.MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE 
THAT MOL IS ASSUMED TO HAVE BEEN SET 

.VV = 0. INDICATES THE DRIVE LOST VOLUME VALID 
.PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
.SKI ~ 1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 

THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 


JSR 

BR 

NOP 

ERROR 

JSR 


PC.STCDRVSTS 

??? 


PC.8(SP)+ 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
50 BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


062716 

105076 

162716 

013746 

042716 

022726 

001524 


032737 

001030 

032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001030 


000004 

000000 

000004 

001350 

147677 

010100 


010000 001350 
020000 001 352 


STCDRVSTS: 

.■CLEAR USER'S ERROR CALL 


#4, (SP) ;M0VE SP TO USER'S ERROR CALL 


B(SP) 

#4 ,(SP> 


;SEE IF 'HOL" = "VV" = 1, AND 'PIP" = 0 


; CLEAR ERROR NUMBER 

;MOVE SP BACK TO NO ERROR RETURN 


RMDSI.-(SP) ;PUT DRIVE STATUS ON STACK 

#*C<PIP!NOL ! VV>, (SP) 

#MOL!VV,(SP)+ ;ARE MOL.VV AND PIP O.K.?? 

3$ .-YES'! 


001350 

010000 

001350 

000004 

000207 

000002 

000010 


001140 

001140 

001142 

000000 


.•REPORT AN ERROR IF MOL = 0 AND 
BIT #MOL.RMDSI 

BNE 1$ 

BIT fOPI.RMERII 

BNE 1$ 

MOV RMDSI.fGDDAT 

BIS #MOL,SGDDAT 

MOV RMDSI.SBODAT 

ADD #4 .(SP) 

MOVB #207,a(SP) 

SUB #2,(SP) 

jsr ?c.a(SP)+ 

SUB #10, (SP) 

NOP 


"DPI" = 0 
;IS MOL ON ?? 

;YES! ! 

;WAS , WI" SET?? 

,-YES-DONT REPORT ’HOL" = 0 
.•EXPECTED STATUS 

.•RECEIVED STATUS 

.•MOVE SP TO USER'S ERROR CALL 

.-WRITE ERROR NUMBER IN CALL 

,‘MOVE SP TO RETURN FOR ERROR 

.•REPORT ERROR VIA USER 

;MOVE SP BACK TO NO ERROR RETURN 


000100 001350 


.•REPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND 
BIT #VV,RMDSI ; I S *VV M * 0?? 

BNE 2$ ;N0! ! 


i 
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E 3 


58 

057740 

032737 

010000 

001400 


BIT 

#IVC.RMER2I 

59 

057746 

001024 




8NE 

2S 

60 

057750 

013737 

001350 

001140 


MOV 

RMDSI.SGDDAT 

61 

057756 

052737 

000100 

001350 


BIS 

#VV.RMDSI 

62 

057764 

013737 

001350 

001142 


MOV 

RMDSI. SBDDAT 

63 

057772 

062716 

000004 



ADD 

*4. (SP) 

64 

057776 

112776 

000210 

000000 


MOVB 

#210.i(SP) 

65 

060004 

162716 

000002 



SUB 

02 . (SP) 

66 

060010 

004736 




JSR 

pc.a(SP)* 

6 7 

060012 

162716 

000010 



SUB 

0iO. (SP) 

us 

060016 

000240 




NCP 


69 

060020 




2$: 



fyj 

71 





.♦REPORT 

AN ERROR IF DRIVE IS OF 

72 

060020 

032737 

020000 

001350 


BIT 

#PIP. RMDSI 

73 

060026 

001430 




BEQ 

3S 

74 

060030 

032737 

040000 

001400 


BIT 

#SKI .RMER2I 

75 

060036 

001024 




BNE 

3$ 

76 


013737 

001350 

001140 


MOV 

RMDSI.SGDDAT 

77 

060046 

042737 

020000 

001140 


BIC 

fPIP.SGDDAT 

78 

060054 

013737 

001350 

001142 


MOV 

RMDSI.SBDDAT 

79 

060062 

062716 

000004 



ADD 

#4, (SP) 

80 

060066 

1 12776 

000211 

000000 


MOVB 

#211 ,8(SP) 

81 

060074 

162716 

000002 



SUB 

#2.<$P) 

82 

060100 

004736 




JSR 

PC.i(SP)* 

83 

060102 

162716 

000010 



SUB 

#10. (SP) 

84 

060106 

000240 




NOP 


85 

04. 

060110 




3S: 



oC 

87 





;SEE IF 

"SKI" 

= "DVC" = 0 

88 

060110 

013746 

001400 



MOV 

RMER2I. -(SP) 

89 

060114 

042726 

137577 



BIC 

#*C<SKI!DVC>,(! 

90 

060120 

001460 




BEQ 

6$ 

91 

A") 

060122 




4S: 



yc 

93 





.♦REPORT AN ERROR IF THERE IS A 

94 

C60122 

032737 

000200 

001400 


BIT 

#DVC.RMER2I 

95 

060130 

001424 




BEO 

5 $ 

96 

060132 

013737 

001400 

001140 


MOV 

RMER2I.SGDDAT 

97 

060140 

042737 

000200 

001140 


BIC 

#0VC.SGDDAT 

98 

060146 

013737 

001400 

001142 


MOV 

RMERZl .SBDDAT 

99 

060154 

062716 

000004 



ADD 

#4.(SP) 

100 

060160 

112776 

000212 

000000 


MOVB 

#212.a(SP) 

101 

060166 

162716 

000002 



SUB 

02. (SP) 

102 

060172 

004736 




JSR 

pc.a(SP)* 

103 

060174 

162716 

000010 



SUB 

#10. (SP) 

104 

060200 

000240 




NOP 


105 

1ft/ 

060202 




5S: 



lUo 

107 





.♦REPORT AN ERROR IF "SKI" = 1 

108 

060202 

032737 

040000 

001400 


BIT 

#SKI.RMER2I 

109 

060210 

001424 




BEO 

6$ 

110 

060212 

013737 

001400 

001140 


MOV 

RMER2I.SGDDAT 

111 

060220 

042737 

040000 

001140 


BIC 

#SKI.SGDDAT 

112 

060226 

013737 

001400 

001142 


MOV 

RMER2I .SBDDAT 

113 

060234 

062716 

000004 



ADD 

#4,(SP) 

114 

060240 

112776 

000213 

000000 


MOVB 

#213.a(SP) 


WAS "IVC" SET?? 

YES-DONT REPORT ’W” = 0 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ER'<OR 


CYLINDER AND "SKI" = 0 
IS DRIVE OFF CYLINDER?? 

NOM 

WAS '•SKI" SET?/ 

YES-DONT REPORT 'PIP = 1 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 


.♦PUT ERROR REG 2 ON STACK 
)♦ 

; BRANCH IF NO ERROR 


;ANY DEVICE FAULT?? 

;NO!» 

.♦EXPECTED STATUS 

.-RECEIVED STATUS 
.♦MOVE SP TO USER’S CALL 
.♦WRITE NUMBER OF ERROR IN CALL 
.♦MOVE SP TO RETURN FOR ERROR 
.-REPORT ERROR VIA USER 
.♦MOVE SP BACK TO NO ERROR 


;1S THERE A SEEK INCOMPLETE ERROR 
*NO 1 1 

•EXPECTED STATUS 

.♦RECEIVED STATUS 

.♦MOVE SP TO USER'S ERROR CALL 

.♦WRITE ERROR NUMBER IN USER'S ERROR CALL 


SCO 0237 
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115 060246 

116 0602*2 

117 060254 

118 06C260 

119 060262 

120 
121 

122 060262 

123 060266 

124 060272 

125 060274 

126 060300 

127 060302 

128 060306 

129 060310 


162716 

004736 

162716 

000240 


062716 

105776 

001403 

062716 

000402 

162716 

000240 

000207 


000002 

000010 


000004 

000000 

000004 

000004 


6S: 


SUB 

JSR 

SUB 

NOP 


#2,<SP> 

pc.a<sp>* 

#10,<SP) 


; AUGMENT THE RETURN ADDRESS 


7$: 

8 $: 


ADD 

TSTB 

BEQ 

ADD 

BR 

SUB 

NOP 

RTS 


#4,<SP) 

a(SP> 

7$ 

#4, (SP) 

8 * 

#4, (SP) 
PC 


3 


MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


IF ANY ERROR WAS DETECTED 

.-MOVE SP TO USER’S ERROR CALL 
;WAS AN ERROR DETECTED?? 

• NO 1 1 

•YES'- MOVE SP TO USER'S ERROR RETURN 
;N0 - MOVE SP TO NO ERROR RETURN 
; RETURN TO USER 



SEQ 0238 


ROUTINES 


STACK WILL LOOK LIKE: 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE PS OF MAIN FLOW 
SAVE PC OF MAIN FLOW 
SAVE PS OF CALL 
SAVE PC OF CALL 


RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 


SEQ 0239 


M 3 
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060406 

060410 

060414 

060416 

060424 

060426 

060430 

060434 

060440 

060442 

060444 

060446 

060454 

060456 

060460 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
*BINARY-ASCII NUMBER AND TYPE IT. 

: CAU: MOV NUMBER, -(SP) ; .'NUMBER TO BE TYPED 

* TYP8N 


010146 



STYPBN: MOV 

016601 

000006 


MOV 

000261 



SEC 

112737 

000060 

060460 

1$: MOVB 

006101 



ROL 

001406 



BEQ 

105537 

060460 


ADC8 

104401 

060460 


TYPE 

000241 



CLC 

000765 



BR 

012601 



2S: MOV 

016666 

000002 

000004 

MOV 

012616 



MOV 

000002 



RTI 

000 

000 


SBIN: .BYTE 


RI.-(SP) 
6(SP) ,R1 

#'0,$8IN 

R1 

2 $ 

SBIN 

.S6IN 

1 $ 

(SPI+.R1 
2(SP) ,4(SP> 
(SP)+, (SP) 


TYPE IT 

SAVE R1 ON THE STACK 
GET THE INPUT NUMBER 

SET "C" SO CAN KEEP TRACK OF THE NUMBER OF BITS 
SET CHARACTER TO AN ASCII ‘XT. 

GET THIS BIT 
DONE? 

NO— SET THE CHARACTER EQUAL TO THIS BIT 
GO TYPE THIS BIT 

CLEAR , T" SO CAN KEEP TRACK OF BITS 
GO DO THE NEXT BIT 
POP THE STACK INTO R1 
ADJUST THE STACK 

RETURN TO USER 

STORAGE FOR ASCII CHAR. AND TERMINATOR 



SEQ 0240 
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060462 

060462 

060464 

060466 

060470 

060472 

060474 

060500 

060504 

060506 

060510 

060516 

060520 

060524 

060530 

060532 

060536 

060540 

060542 

060544 

060546 

060550 

060552 

060554 

060556 

060560 

060562 

060564 

060572 

060576 

060602 

060604 

060606 

060612 

060614 

060616 

060620 

060622 

060624 

060626 

060634 

060636 

060640 

060642 

060644 


010046 

010146 

010246 

010346 

010546 

012746 

016605 

100004 

005405 

112766 

005000 

012703 

112723 

005002 

016001 

160105 

002402 

005202 

000774 

060105 

005702 

001002 

105716 

100407 

106316 

103003 

116663 

052702 

052702 

110223 

005720 

020027 

002746 

003002 

010502 

000764 

105726 

100003 

116663 

105013 

012605 

012603 

012602 

012601 


020200 

000020 


000055 000001 


060676 

000040 

060666 


000001 177777 

000060 

000040 


000010 


177777 177776 


.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

SStmTSoStSSk^D to CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
••SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
.-•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
; •BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
.-•REPLACED WI T H SPACES. 

-• CALL: MOV NUM.-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

'•* TYPOS ;;G0 TO THE ROUTINE 


.-PUSH RO ON STACK 
; ; PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R5 ON STACK 
;.*SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 
;;BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS. 

;;MAKE THE ASCII NUMBER NEG. 

;;ZERO THE CONSTANTS INDEX 

;; SETUP THE OUTPUT POINTER 

;;SET THE FIRST CHARACTER TO A BLANK 

;; CLEAR THE BCD NUMBER 

;;GET THE CONSTANT 

; ;FORM THIS BCD DIGIT 

;;BR IF DONE 

;; INCREASE THE BCD DIGIT BY 1 

.-.-ADD BACK THE CONSTANT 
.-.-CHECK IF BCD DIGITS 
.-.-FALL THROUGH IF 0 
; .-STILL DOING LEADING O'S? 

;;BR IF YES 
;;MSD? 

;;8R IF NO 

;; YES— SET THE SIGN 

.-.-MAKE THE BCD DIGIT ASCII 

.-.-MAKE IT A SPACE IF NOT ALREADY A DIGIT 

; ;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

.-.-JUST INCREMENTING 

.-.’CHECK THE TABLE INDEX 

;;G0 DO THE NEXT DIGIT 

;;G0 TO EXIT 

.-.-GET THE LSD 

;;G0 CHANGE TO ASCII 

.-.-WAS THE LSD THE FIRST NON-ZERO? 

* -BR IF NO 

;; YES-SET THE SIGN FOR TYPING 

.-.-SET THE TERMINATOR 

.-.-POP STACK INTO R5 

.-.-POP STACK INTO R3 

;;POP STACK INTO R2 

••POP STACK INTO R1 


.-•CALL: 


NUM.-(SP) 

;• 

MOV 

;* 

TVPDS 


STYPDS: 

MOV 

RO.-(SP) 


MOV 

RI.-(SP) 


MOV 

R2.-(SP) 


MOV 

R3.-(SP) 


MOV 

MOV 

R5.-ISP) 
#26200. -(SP) 


MOV 

20(SP),R5 


BPL 

1$ 


NEG 

R5 


MOVB 

#*-.1(SP) 

IS: 

CLR 

RO 


MOV 

#$DBLK.R3 


MOVB 

#' .(R3H 

2S: 

CLR 

R2 

MOV 

SDTBL(RO) ,R1 

3$: 

SUB 

R1.R5 


BLT 

4$ 


INC 

R2 


BR 

3$ 

4$: 

ADD 

R1.R5 


TST 

R2 


BNE 

5$ 


TSTB 

(SP) 


BMI 

7$ 

5$: 

ASLB 

(SP) 


BCC 

6$ 


MOVB 

1 (SP) .-1 (R3) 
#’0,R2 

6$: 

BIS 

7$: 

BIS 

#• ,R2 


MOVB 

R2.(R3)* 


TST 

(R0) + 


CMP 

R0.#10 


BLT 

2$ 


BGT 

8$ 


NOV 

R5.R2 


BR 

6$ 

00 

• • 

TSTB 

BPL 

MOVB 

( SP )♦ 

9$ 

-1(SP).-2(R3) 

9S: 

CLRB 

(R3) 


MOV 

<SP)*.R5 


MOV 

(SP)*.R3 


MOV 

(SPH.R2 


MOV 

(SP)* R1 


j 
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060646 012600 

060650 104401 060676 

060654 016666 000002 000004 

060662 012616 

060664 000002 

060666 023420 

060670 001750 

060672 000144 

060674 000012 

060676 


MOV 

TYPE 

MOV 

MOV 

RTI 

$DT8L: 10000. 
1000 . 
100 . 
10 . 

SDBLK : .BLKW 


(SPJ+.RO 

.SDBLK 

2<SP),4<SP> 

<SP)+.(SP> 


3 


SEO 0241 


; ;POP STACK INTO RO 
;;NOU TYPE THE NUMBER 
; .-ADJUST THE STACK 

; .-RETURN TO USER 


I 
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SEO 0242 


.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 


060706 

060712 

060720 

060724 

060730 

060732 

060740 

060746 

060754 

060756 

060760 

06C762 

060766 

060770 

060774 

061000 

061004 

061010 

061012 

061014 

061016 

061020 

061022 

061024 

061026 

061030 

061034 

061036 

061042 

061044 

061046 

061050 


•THIS ROUTINE IS USED TO CHANGE A 1 6-Oi T BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 


MOV 

TYPOS 

.BYTE 

.BYTE 


NUM.-(SP) 


NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M=1 OR 0 

;; 1-TYPE LEADING ZEROS 
;;0-SUPPRESS LEADING ZEROS 


•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 


017646 

116637 

112637 

062716 

000406 

112737 

112737 

112737 

010346 

010446 

010546 

113704 

005404 

062704 

110437 

113704 

016605 

005003 

006105 

000404 

006105 

006105 

006105 

010503 

006103 

105337 

m 

001002 

005704 

001403 

005204 


000000 

000001 

061133 

000002 

000001 

000006 

000005 


061133 

000006 

061132 

061131 

000012 


061131 


061133 


061132 

177770 


;* MOV 

NUM.-(SP) 

.•NUMBER TO BE TYPED 

;• TYPON 

• * 

i 

•.•CALL FOR TYPEOUT 

••STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

.•CALL: 



;* MOV 

NUM.-(SP) 

.’NUMBER TO BE TYPED 

;* TYPOC 


.•CALL FOR TYPEOUT 

STYPOS: MOV 

8(SP).-(SP) 

.‘PICKUP THE MODE 

MOVB 

1 (SP). SOFILL 

.‘LOAD ZERO FILL SWITCH 

movb 

(SP)*,S0M0DE*1 

.■NUMBER OF DIGITS TO TYPE 

ADD 

M2 ASP) 

.•ADJUST RETURN ADDRESS 

BR 

STYPON 


STYPOC: M0V8 

#1 .SOFILL 

.-SET THE ZERO FILL SWITCH 

MOVB 

#6.$0M0DE+1 

;SET FOR SIX(6) DIGITS 

STYPON: MOVB 

#5.S0CNT 

;SET THE ITERATION COUNT 

MOV 

R3,-(SP> ;;SAVE R3 

MOV 

R4, -(SP) ;;SAVE R4 

MOV 

R5.-(SP) ;;SAVE R5 

MOVB 

SOMODE+1 ,R4 

;;GET THE NUMBER OF DIGITS TO 

NEG 

R4 


ADD 

#6,R4 

;; SUBTRACT IT FOR MAX. ALL OWE 1 

MOVB 

R4.S0M0DE 

; SAVE IT FOR USE 

MOVB 

SOFILL. R4 

r;GET THE ZERO FILL SWITCH 

MOV 

12(SP) ,R5 

;; PICKUP THE INPUT NUMBER 

CLR 

R3 

CLEAR THE OUTPUT WORD 

IS: ROL 

R5 

.•ROTATE MSB INTO ,, C** 

BR 

3S ;;G0 DO MSB 

2 S: ROL 

R5 

;;FORM THIS DIGIT 

ROL 

R5 


ROL 

R5 


MOV 

R5.R3 


3S: ROL 

R3 

.-GET L3B OF THIS DIGIT 

DECS 

SOMODE 

.•TYPE TH T S DIGIT? 

BPL 

7S 

;BR IF 

B1C 

#1 77770, R3 

.’GET R OF JUNK 

BNE 

4S 

.-TEST rOR 0 

TST 

R4 

.•SUPPRESS THIS 0? 

BED 

5S 

;8R IF YES 

4S: INC 

R4 

.•DON'T SUPPRESS ANYMORE O'S 



3 
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MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R5 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
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M 3 


SEQ 0244 


.S8TTL TYPE ROUTINE 

;;*************************************************************** 

.♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

;*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

;*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

; * 

.'♦CALL: 

;*1) USING A TRAP INSTRUCTION 

;♦ TYPE .MESADR ;; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 

;*OR 

;♦ TYPE 

;* MESADR 


061134 

105737 

001173 


STYPE: 

TSTB 

STPFLG 

;IS THERE A TERMINAL? 

061140 

100002 




BPL 

IS 

;BR IF YES 

061142 

000000 




HALT 

i 

.'HALT HERE IF NO TERMINAL 

061144 

000430 




BR 

3S 

.'LEAVE 

061146 

010046 



IS: 

MOV 

RO.-(SP) 

.-SAVE RO 

061150 

017600 

000002 



MOV 

a2(SP).R0 

.'GET ADDRESS OF ASCIZ STRING 

061154 

122737 

000001 

001242 


CMPB 

fAPTENV.SENV 

.'RUNNING IN APT MODE 

061162 

001011 




BNE 

62S 

;NO,GO CHECK FOR APT CONSOLE 

061164 

132737 

000100 

001243 


BITB 

fAPTSPOOL .SENVM 

.'SPOOL MESSAGE TO APT 

061172 

001405 




BEQ 

62S 

;N0. GO CHECK FOR CONSOLE 

061174 

010037 

061204 



MOV 

R0.61S 

.'SETUP MESSAGE ADDRESS FOR APT 

061200 

004737 

065546 



JSR 

PC.SATY3 

.'SPOOL MESSAGE TO APT 

061204 

000000 



61 S: 

.WORD 

0 

.‘MESSAGE ADDRESS 

061206 

132737 

000040 

001243 

62S: 

BITB 

JAPTCSUP, SENVM 

,'APT CONSOLE SUPPRESSED 

061214 

001003 




BNE 

60S 

; YES, SKIP TYPE OUT 

061216 

112046 



2$: 

MOVB 

<RO)+,-(SP> 

.'PUSH CHARACTER TO BE TYPED ONTO STACK 

061220 

001005 




BNE 

4S 

;BR IF IT ISN'T THE TERMINATOR 

061222 

005726 




TST 

(SPH 

; IF TERMINATOR POP IT OFF THE STACK 

061224 

01 2600 



60S: 

MOV 

(SP>+. RO 

; RESTORE RO 

061226 

062716 

000002 


3S: 

ADD 

#2,(SP) 

.•ADJUST RETURN PC 

061232 

000002 




RTI 


.•RETURN 

061234 

122716 

000011 


4S: 

CMPB 

#HT.(SP> 

.‘BRANCH IF <HT> 

061240 

001430 




BEQ 

8S 


061242 

122716 

000200 



CMPB 

#CRLF.(SP> 

; .‘BRANCH IF NOT <CRLF> 

061246 

001006 




BNE 

5S 


061250 

005726 




TST 

ISP)* 

;;POP <CRXLF> EQUIV 

061252 

104401 




TYPE 


; ; TYPE A CR AND LF 

061254 

001217 




SCRLF 



061256 

105037 

061464 



CLRB 

SCHARCNT 

.-CLEAR CHARACTER COUNT 

061262 

000755 




BR 

2S 

.‘GET NEXT CHARACTER 

061264 

004737 

061346 


5S: 

JSR 

PC.STVPEC 

;G0 TYPE THIS CHARACTER 

061270 

123726 

001172 


6S: 

CMP8 

SFILLC. <SP) + 

;IS IT TIME FOR FILLER CHARS.? 

061274 

001350 




BNE 

2S 

;IF NO GO GET NEXT CHAR. 

061276 

013746 

001170 



MOV 

SNULL, -(SP) 

;GET # OF FILLER CHARS. NEEDED 
.‘AND THE NULL CHAR. 

061302 

105366 

000001 


7S: 

DECB 

1(SP) 

.'DOES A NULL NEED TO BE TYPED? 

061306 

002770 




BLT 

6S 

;BR IF NO-GO POP THE NULL OFF OF STACK 

061310 

004737 

061346 



JSR 

PC.STVPEC 

;G0 TYPE A NULL 

061314 

105337 

061464 



DECB 

SCHARCNT 

;D0 NOT COUNT AS A COUNT 

061320 

000770 




BR 

7S 

.'LOOP 
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N 3 


SEQ 0245 


; HORIZONTAL TAB PROCESSOR 


061 322 

112716 

000040 


8$: 

MOVB 

#' .(SP) 

; .-REPLACE TAB WITH SPACE 

061326 

004737 

061346 


9$: 

JSR 

PC.STYPEC 

.-.-TYPE A SPACE 

061332 

132737 

000007 

061464 


BITB 

#7,$CHARCNT 

.-.-BRANCH IF NOT AT 

061340 

001372 




BNE 

9$ 

.-.-TAB STOP 

061342 

005726 




TST 

(SP)* 

.-.-POP SPACE OFF STACK 

0V.344 

000724 




BR 

2$ 

;;GET NEXT CHARACTER 

06 346 




STYPEC: 




061 346 

105777 

117606 



TSTB 

3STKS 

.-.-CHAR IN KYBD BUFFER? 

061352 

100022 




BPL 

10$ 

;;BR IF NOT 

061354 

017746 

117602 



MOV 

a$TKB.-(SP) 

.-.-GET CHAR 

061360 

042716 

177600 



BIC 

#1 77600, (SP) 

; .-STRIP EXTRANEOUS BITS 

061364 

122716 

000023 



CMP8 

#$XOFF , CSP) 

.-.-WAS CHAR XOFF 

061370 

001012 




BNE 

102$ 

;;BR IF NOT 

061372 




101$: 




061372 

105777 

117562 



TSTB 

a$TKS 

.-.-WAIT FOR CHAR 

061376 

100375 




BPL 

101$ 


061400 

117716 

117556 



MOVB 

3$TKB.(SP) 

;;GET CHAR 

061404 

042716 

177600 



BIC 

#1 77600, (SP) 

; .-STRIP IT 

061410 

122716 

000021 



CMP8 

#$XON, (SP) 

;;WAS IT XON? 

061414 

001366 




BNE 

101$ 

; ;8R IF NOT 

061416 




102$: 




061416 

005726 




TST 

(SP)* 

.-.-FIX STACK 

061420 




10$: 




061420 

105777 

117540 



TSTB 

a$TPs 

.-.-WAIT UNTIL PRINTER IS READY 

061424 

100375 




BPL 

10$ 


061426 

116677 

000002 

117532 


MOVB 

2(SP), a$TPB 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG 

061434 

122766 

000015 

000002 


CMPB 

#CR,2(SP) 

;;IS CHARACTER A CARRIAGE RETURN? 

061442 

001003 




BNE 

1$ 

; .-BRANCH IF NO 

061444 

105037 

061464 



CLRB 

$CHARCNT 

;; YES— CLEAR CHARACTER COUNT 

061450 

000406 




BR 

$TYPEX 

;;EXIT 

061452 

122766 

000012 

000002 

1$: 

CMPB 

#LF.2(SP> 

;;IS CHARACTER A LINE FEED? 

061460 

001402 




BEO 

STYPEX 

; .-BRANCH IF YES 

061462 

105227 




INCB 

(PC)* 

;; COUNT THE CHARACTER 

061464 

000000 



$CHARCNT: .WORD 

0 

;; CHARACTER COUNT STORAGE 

061466 

000207 



$TYPEX: 

RTS 

PC 



1 B 4 
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.S8TTL SCOPE HANDLER ROUTINE 


SEQ 0246 






;*SW14=1 

LOOP ON TEST 





;*SW11=1 

INHIBIT ITERATK 





; *SW09=1 

LOOP ON ERROR 





;*SW08=1 

LOOP ON TEST IN 





.-♦CALL 






;♦ SCOPE 

;; SCOPE= 

061470 




(SCOPE: 


061470 

104410 



CKSWR 


061472 

004737 

062222 


JSR 

PC. STOP 

061476 

032777 

040000 

117450 

1$: BIT 

#BIT14.aSWR 

061504 

001402 



BEO 

9S 

061506 

000137 

062136 


JMP 

(OVER 

061512 




9$: 






;#####START OF 

CODE FOR THE XOR 

061512 

000416 



SXTSTR: BR 

6$ 

061514 

013746 

000004 


MOV 

8#ERRVEC,-(SP) 

061520 

012737 

061540 

000004 

MOV 

#5$.B#ERRVEC 

061526 

005737 

177060 


TST 

B#1 77060 

061532 

012637 

000004 


NOV 

(SP) +.8#ERRVEC 

061536 

000561 



BR 

SSVLAD 

061540 

022626 



5$: CMP 

(SP)+, (SP)+ 

061542 

012637 

000004 


NOV 

(SP) +,a#ERRVEC 

061546 

000521 



BR 

7S 

061550 




6$: ;#####END OF 

CODE FOR THE XO 

061550 

032777 

000400 

117376 

BIT 

#8IT08.aSWR 

061556 

001421 



BEQ 

2$ 

061560 

005046 



CLR 

-(SP) 

061562 

117716 

117366 


M0V8 

aswR.(SP) 

061566 

001414 



BEO 

8S 

061570 

022716 

000023 


CMP 

#23. (SP) 

061574 

002411 



BLT 

8$ 

061576 

011637 

001116 


MOV 

(SP). STSTNM 

061602 

005316 



DEC 

(SP) 

061604 

006316 



ASL 

(SP) 

061606 

062716 

062154 


ADD 

#$SW08TBL.(SP) 

061612 

013637 

001122 


MOV 

a(SP)*,SLPADR 

061616 

000547 



BR 

(OVER 

061620 

005726 



8$: TST 

(SP)* 

061622 

105737 

001117 


2$: TSTB 

SERFLG 

061626 

001502 



BEQ 

3S 

061630 

022737 

177777 

062640 

CMP 

#»1. CPSAVE 

061636 

001455 



BEQ 

2003S 

061640 

013746 

000004 


MOV 

ERRVEC.-(SP) 

061644 

012737 

061662 

000004 

NOV 

#2000S.ERRVEC 

061652 

013737 

17/766 

062640 

NOV 

177766.CPSAVE 

061660 

000406 



BR 

2001 S 

061662 

012737 

177777 

062640 

2000%: MOV 

#-1 .CPSAVE 

061670 

012716 

061676 


MOV 

#2001S,(SP) 


♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
♦AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 
♦AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAYS 5 :08> 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


; ; TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON PRESENT TEST? 

;;N0 IF SW14=0 

;;JUMP OVER SCOPE ROUTINE 

TESTER##### 

; ; IF RUNNING ON THE “XOR*' TESTER CHANGE 
;;THIS INSTRUCTION TO A ‘HOP" (N0P=240) 
;;SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
;;TIME OUT ON XOR? 

; .-RESTORE THE ERROR VECTOR 
;;G0 TO THE NEXT TEST 
;; CLEAR THE STACK AFTER A TIME OUT 
; .-RESTORE THE ERROR VECTOR 
.-.-LOOP ON THE PRESENT TEST 
1 TESTER##### 

.-.-LOOP ON SPEC. TEST? 

. .g|| If 

;; CLEAR A TEMP. LOCATION 
; .-PICKUP THE DESIRED TEST NUMBER 
.-.-BRANCH IF BAD TEST NUMBER IN SWR 
;; CHECK THE NUMBER IN THE SWR 
; .-BRANCH IF TEST NUMBER IS OUT OF RANGE 
.-.-UPDATE THE TEST NUMBER 

• 'BACKUP RV ONF 

♦•SCALE THE TEST NUMBER AS AN INDEX 
.-.-FORM THE ADDRESS OF TEST POINTER 
.-.-SET LOOP ADDRESS TO DESIRED TEST 
;;G0 LOOP ON THE TEST 

;; CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
.-.-HAS AN ERROR OCCURRED? 

. .Qfl jp J^Q 

••SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

.-.-KICK AROUND ROUTINE IF SO 

;;SAVE CONTENTS OF ERROR VECTOR 

;; SETUP ’TRAP* RETURN ADDRESS 

.-.-MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

.-.-SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 


C 4 



SEQ 0247 


.-.-RESTORE CONTENTS OF ERROR VECTOR 

.-.-SEE IF CPSAVE HAS CPU ERR RE6 TIMEOUT INDICATION 
; .-BRANCH IF SO 

;;SEE IF THE POWER MONITOR BIT IS ON 

.-.-BRANCH TO CONTINUE ROUTINE IF CLEAR 

;; CLEAR THE BIT FOUND TO BE SET 

.-.-SAVE SUR ADDRESS 

;;SAVE SUR VALUE 

;;GET SOFTWARE SWR ADDRESS 

.-.-GET CURRENT SUR VALUE 

; .-DON’T ALLOW LOOP ON ERROR ON THIS ERROR 

.-.-CALL SPECIAL POWER FAIL BIT ERROR CALL 

;;RESTORE SUR TO ORIGINAL VALUE 

; .-RESTORE SWR ADDRESS 

.-.-MAX. ERRORS FOR THIS TEST OCCURRED? 

;;BR IF NO 
.-.-LOOP ON ERROR? 

;;BR IF NO 

;;SET LOOP ADDRESS TO LAST SCOPE 

.-.-ZERO THE ERROR FLAG 
;; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;; ESCAPE TO THE NEXT TEST 
;; INHIBIT ITERATIONS? 

. -qr ]f yes 

;;IF FIRST PASS OF PROGRAM 

;; INHIBIT ITERATIONS 

; .-INCREMENT ITERATION COUNT 

;; CHECK THE NUMBER OF ITERATIONS MADE 

;;8R IF MORE ITERATION REQUIRED 

; .-REINITIALIZE THE ITERATION COUNTER 

.-.-SET NUMBER OF ITERATIONS TO DO 

.-.-COUNT TEST NUMBERS 

;;SET TEST NUMBER IN APT MAILBOX 

.-.-SAVE SCOPE LOOP ADDRESS 

.-.-SAVE ERROR LOOP ADDRESS 

.-.-CLEAR THE ESCAPE FROM ERROR ADDRESS 

.-.-ONLY ALLOW ONE(I) ERROR ON NEXT TEST 

;; DISPLAY TEST NUMBER 

.-.-FUDGE RETURN ADDRESS 

; .-FIXES PS 

.-.-MAX. NUMBER OF ITERATIONS 


STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 


ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 


TEST 1 
TEST 2 
TEST 3 
TEST 4 
TEST 5 
TEST 6 
TEST 7 
TEST 10 
TEST 11 
TEST 12 


0 4 


SEQ 0 246 
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062200 

062202 

062204 

062206 

062210 

062212 

062214 

062216 

062220 

2 

3 

4 

5 062222 
062222 
062226 
062232 
062234 

6 

7 

9 062234 
062240 
062244 
062246 
10 062246 


021736 

022550 

024420 

025722 

026742 

027660 

030666 

031714 

033076 


012746 000140 
012746 062234 
000002 


012746 000240 
012746 062246 
000002 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


TST13+2 

TST14+2 

TST15+2 

TST16+2 

TST17*2 

TST20+2 

T5T21+2 

TST22+2 

TST23+2 


STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 

STARTING 


ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 


TEST 13 
TEST 14 
TEST 15 
TEST 16 
TEST 17 
TEST 20 
TEST 21 
TFST 22 
TEST 23 


;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 


#PR3.-(SP) 
#64$. -(SP) 


PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 


.•RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 


#PR5.-(SP) 
#65$. -(SP) 


000207 


;;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
; ;POP NEW PC AND PS 

.-RETURN 
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£ 4 


i,EO 0249 


1 


.S8TTL ERROR HANDLER ROUTINE 


•THIS ROUTINE HILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 






;*SW15=1 

HALT ON ERROR 






;*SW13=1 

INHIBIT ERROR TYPEOUTS 





;*SW10=1 

BELL ON ERROR 






;*SW09=1 

LOOP ON ERROR 






.-•CALL 







;* ERROR 

N ; ;ERROR=EMT AND N-ERROR ITEM NUMBER 

062250 

105037 

062642 


SERROR. CLRB 

IBSAVE 

.•CLEAR THE ITEM BYTE SAVE LOCATION 

062254 

104 'TO 



CKSUR 


,-TEST FOR CHANGE IN SOFT-SWR 

062256 

105237 

001117 


7$: INCB 

SERFLG 

;SET THE ERROR FLAG 

062262 

001775 



BEG 

7$ 

; DON'T LET THE FLAG GO TO ZERO 

062264 

013777 

001116 

116664 

MOV 

$TSTNM,iDI SPLAY 

.’DISPLAY TEST NUMBER AND ERROR FLAG 

062272 

032777 

002000 

116654 

BIT 

#8IT10,aSWR 

;BELL ON ERROR? 

062300 

001402 



8EQ 

1$ 

;N0 - SKIP 

062302 

104401 

001212 


TYPE 

.SBELL 

.-RING BELL 

062306 

005237 

001126 


IS: INC 

SERTTL 

.•COUNT THE NUMBER OF ERRORS 

062312 

011637 

001132 


MOV 

(SP) ,$ERRPC 

.’GET ADDRESS OF ERROR INSTRUCTION 

062316 

162737 

OOOOC? 

001132 

SUB 

#2.$ERRPC 


062324 

117737 

116602 

001130 

M0V8 

a$ERRPC,$ITEHB 

.’STRIP AND SAVE THE ERROR ITEM CODE 

062332 

032777 

001000 

116614 

BIT 

#8IT09,aSWR 

.‘SEE IF LOOP ON ERROR IS SET 

062340 

001060 



BNE 

1004$ 

.•BRANCH AROUND ROUTINE IF SO 

062342 

122737 

000177 

001130 

CMP8 

#177. SITEMB 

.‘SEE IF THIS IS THE POWER FAIL CALL 

062350 

001454 



BEG 

1004,1 

.•BRANCH AROUND ROUTINE IF IT IS 

062352 

105737 

062642 


TSTB 

IBSAVE 

.‘SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 

062356 

001047 



BNE 

1003$ 

.•BRANCH IF SO 

062360 

022737 

177777 

062640 

CMP 

#-1, CPSAVE 

.‘SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 

062366 

001445 



BEO 

1004$ 

.•BRANCH IF SO 

062370 

013746 

000004 


MOV 

ERRVEC,-<SP> 

.‘SAVE CONTENTS OF ERROR VECTOR 

062374 

012737 

062412 

000004 

MOV 

#10»S, ERRVEC 

.•SETUP 'TRAP' RETURN ADDRESS 

062402 

013737 

177766 

062640 

MOV 

1 77766, CPSAVE 

.‘MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

062410 

000406 



BR 

1001$ 


062412 

012737 

177777 

062640 

1000$: MOV 

#-1. CPSAVE 

.-SET CPU ERROR REGISTER TIMEOUT INDICATOR 

062420 

012716 

062426 


MOV 

#1001$, (SP) 

.•SETUP RETURN ADDRESS 

062424 

000002 



RTI 



062426 

012637 

000004 


1001$: MOV 

(SP)+, ERRVEC 

.•RESTORE CONTENTS OF ERROR VECTOR 

062432 

022737 

177777 

062640 

1002$: CMP 

#-1 f CPSAVE 

.-SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 

062440 

001420 



BEO 

1004$ 

.‘BRANCH IF SO 

062442 

032737 

000001 

062640 

BIT 

#81 TOO, CPSAVE 

;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

G62450 

001414 



BEO 

1004$ 

.‘BRANCH IF OK 

062452 

042737 

000001 

177766 

PIC 

#81 TOO, 177766 

.•CLEAR THE BIT FOUND SET 

062460 

113737 

001130 

062642 

.iOVB 

SITEMB, IBSAVE 

.‘MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

062466 

112737 

000177 

001130 

movb 

#1 77-SI TEMB 

.-SET SITEMB TO SPECIAL POWER FAIL POINTER 

062474 

000402 



BR 

1004$ 

.•BRANCH OVER IBSAVE CLEARING 

062476 

105037 

062642 


1003$: CLRB 

IBSAVE 

.•CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

062502 




1004$: 



062502 

032777 

020000 

116444 

BIT 

#8IT13,aSWR 

.•SKIP TYPEOUT IF SET 

062510 

001004 



BNE 

20$ 

.-SKIP TYPEOUTS 

062512 

004737 

062644 


JSR 

PC, ERRTYP 

;G0 TO USER ERROR ROUTINE 



.EL 0250 


; .’RUNNING IN APT NODE 
; ; NO. SKIP APT ERROR REPORT 
;;SET I TEN NUNBER AS ERROR NUNBER 
; .-REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;;SEE IF IBSAVE IS LOADED 

; .-BRANCH IF NOT - NO HALT ON PUR NON BIT ERROR 
.-.-HALT ON ERROR 
.-.-SKIP IF CONTINUE 
;;HALT ON ERROR! 

.-.-TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON ERROR SWITCH SET? 

;;BR IF NO 

.’.'FUDGE RETURN FOR LOOPING 
; .-CHECK FOR AN ESCAPE ADDRESS 
;;8R IF NONE 

.‘.’FUDGE RETURN ADDRESS FOR ESCAPE 

; .-ACT-11 AUTO-ACCEPT? 

.’.’BRANCH IF NO 
;;YES 

;;SEE IF ITEN BYTE SAVE LOCATION HAS AN ERROR CALL 
; .’BRANCH BACK TO CALL ORIGINAL ERROR 
* ‘RETURN 

••LOCATION TO SAVE CPU ERROR REG CONTENTS 
; .’LOCATION TO SAVE ITEN BYTE 
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o «* 


SEQ 0251 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


.S8TTL ERROR TYPEOUT ROUTINE 

•THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

• .UNIT MfCER, DRIVE TYPE. TEST NUMBER. ERROR NUMBER AND 
•PROGRAM COUNTER ARE PRINTED ON THE FIRST LINE; 

• .ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

• .PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AT TER THE ERROR MESSAGE. 


13 

062644 

104414 


ERRTYP: SAVREG 

#SW13.8SWR 


14 

062646 

032777 

020000 

116300 BIT 

.•INHIBIT TYPEOUTS?? 

15 

062654 

001402 


BEQ 

IS 

;N0! ! 

16 

17 

18 

062656 

000137 

063454 

JMP 

27S 

; YES ! ! 




.•TYPE UNIT NlfCER. DRIVE TYPE. 

TEST NUMBER. ERROR NUMBER 

19 




; PROGRAM COUNTER 


20 

062662 

104401 

001217 

IS: TYPE 

.SCftLF 


21 

062666 

104401 

063470 

TYPE 

.ERTYOO 

.-TYPE , DRV# ,# 

22 

062672 

013746 

001234 

NOV 

SUNIT.-(SP) 

;;SAVE SUNIT FOR TYPEOUT 
.-.-TYPE DRIVE NlfCER 


062676 

104403 


TYPOS 


;;G0 TYPE— OCTAL ASCII 


062700 

003 


.BYTE 

3 

.-.-TYPE 3 DIGIT(S) 


062701 

000 


.BYTE 

0 

; .-SUPPRESS LEADING ZEROS 


23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


062702 

062706 

062712 

062716 

062724 

062730 

062732 

062736 

062740 


062742 

062746 

062754 

062760 


013700 

016000 

042700 

012737 

022700 

001004 

104401 

104401 

OOOCOO 


005037 

013737 

104401 

013746 


.-TYPE ’DRIVE TYPE’. RM80 FOR UNIT UNDER TEST 


001276 


MOV 

SBASE.RO 

GET RM BASE ADDRESS 

000026 


MOV 

RMDT(RO) ,R0 

GET DRIVE TYPE REGISTER 

177740 


BIC 

#1 77740.R0 

SAVE DRIVE TYPE BITS AND 

067062 062740 


NOV 

0SRM8O.3S 

GET ASCII DRIVE TYPE 

000026 


CMP 

#26, RO 

IS DEVICE AN RM80 ? 



BNE 

4S 

NO !• 

063525 

2S: 

TYPE 

.ERTY05 

type ” - ” 



TYPE 


TYPE DRIVE TYPE 


3S: 

.WORD 

0 

DRIVE TYPE MESSAGE IS STORED HERE 


.TYPE TEST NUMBER. ERROR NUMBER 
063460 4$: CLR TSTNHB 

001226 063460 NOV STESTN. TSTNHB 

063475 TYPE .ERTY01 

063460 NOV TSTNMB.-(SP) 



062764 

104403 


TYPOS 



062766 

003 


.BYTE 

3 


062767 

000 


.BYTE 

0 

40 

062770 

005037 

063462 

CLR 

ERRNHB 

41 

062774 

113737 

001130 063462 

H0V8 

SI TEMB, ERRNHB 

42 

065002 

001406 


BEQ 

5$ 

43 

063004 

104401 

063505 

TYPE 

.ERTY02 

44 

063010 

Cl 3746 

063462 

NOV 

ERRNHB. -(SP) 


063014 

104403 


TYPOS 



063016 

003 


.BYTE 

3 


063017 

000 


.BYTE 

0 

45 

063020 

104401 

063514 5S: 

TYPE 

.ERTY03 


AND PROGRAM COUNTER 
LOAD TEST NUMBER FOR 


TYPE '7ST#'* 

.-SAVE TSTNHB FOR TYPEOUT 
.•TYPE TEST NUMBER 
;C0 TYPE— OCTAL ASCII 
.TYPE 3 DIGIT (S> 
.•SUPPRESS LEADING ZEROS 
LOAD ERROR NUMBER FOR 
TYPEOUT 

SKIP IF NO ERROR CALLED 
TYPE 'TRR#" 

SAVE ERRNHB FOR TYPEOUT 
TYPE ERROR NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 3 DIGIT (S) 
.SUPPRESS LEADING ZEROS 
TYPE ’W=" 
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4 


SEQ 0252 


46 

063024 

013746 

001132 



NOV 

SERRPC.-CSP) 

.’SAVE SERRPC FOR TYPEOUT 
.TYPE PROGRAM COUNTER 


063030 

104403 




TYPOS 


;G0 TYPE-OCTAL ASCII 


063032 

006 




.BYTE 

6 

.TYPE 6 DIGIT (S) 

4? 

48 

063033 

001 




.BYTE 

1 

.’TYPE LEADING ZEROS 





; GENERATE POINTER TO ERROR TABLE 

UNLESS ERROR NUMBER IS 0 

49 

063034 

005737 

063462 


6$: 

TST 

ERRNMB 

WAS AN ERROR CALLED? 

50 

063040 

001002 




BNE 

7$ 

BR IF YES 

51 

52 

53 

063042 

000137 

063454 



JNP 

27$ 

NO— EXIT 

063046 

104*01 

001217 


7S: 

TYPE 

.$CRLF 

YES-TYPE CRLF 

54 

063052 

105037 

063466 



CLRB 

BOTFLG 

CLEAR BOT FLAG 

55 

063056 

105037 

065467 



CLRB 

CHRCNT 

CLEAR CHARACTER COUNTER 

56 

063062 

013700 

063462 



NOV 

ERRNMB.RO 
#1 77, r6 

RO POINTS TO FIRST OF 

57 

063066 

122700 

000177 



CMPB 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 

58 

063072 

001003 




BNE 

8$ 

BRANCH IF NOT 

59 

063074 

012700 

063532 



NOV 

#PF ECH.RO 

MOVE POWER FAIL ERROR CALL TABLE TO RO 

60 

063100 

000405 




BR 

9$ 


61 

063102 




8S: 

ASL 

RO 

FOUR ENTRIES IN ERROR 

62 

063104 

006300 




ASL 

RO 

TABLE 

63 

0§3106 

006300 




ASL 

RO 


64 

063110 

062700 

001574 



ADD 

#$ERRTB-8. .RO 


65 

063114 

011001 



9$: 

NOV 

(RO).RI 

R1 POINTS TO ERROR MESSAGE 

66 








TABLE 

67 

68 
69 

063116 

001507 




BEQ 

19$ 

BRANCH IF NO ERROR MESSAGE 





;TYPE 

THE ERROR MESSAGE 


70 

063120 

012102 



10$: 

NOV 

(R1J+.R2 

R2=ADDRESS OF MESSAGE STRING 

71 

063122 

001505 




BEQ 

19$ 

BRANCH IF END OF MESSAGE 

72 

063124 

010237 

063272 



NOV 

R2«18$ 

LOAD ADDRESS OF STRING 

73 

063130 

005037 

063464 



CLR 

BOTADR 

CLEAR BOT ADDRESS 

74 

063134 

112203 



11$: 

N0V8 

(R2H.R3 

END OF STRING?? 

75 

063136 

001454 




BEQ 

17$ 

YES!! 

76 

063140 

122703 

000015 



CMPB 

#CR.R3 

CARRIAGE RETURN?? 

77 

063144 

001003 




BNE 

12$ 

NO!! 

78 

063146 

105037 

063467 



CLRB 

CHRCNT 

YES-CLEAR CHAR COUNT 

79 

063152 

000770 




BR 

11$ 

GET NEXT CHARACTER 

80 

063154 

122703 

000012 


12$: 

CMPB 

#LF.R3 

LINE FEED?? 

81 

063160 

001765 




BEQ 

11$ 

YES-GET NEXT CHARACTER 

82 

063162 

122703 

000011 



CMPB 

#HT,R3 

HORIZONTAL TAB?? 

83 

063166 

001007 




BNE 

14$ 

NO!! 

84 

063170 

105237 

063467 


13$: 

INCB 

CHRCNT 

ADJUST CHARACTER COUNT 

85 

063174 

132737 

000007 

063467 


BITS 

#7,CHRCNT 


86 

063202 

001372 




BNE 

13* 


87 

063204 





BR 

15$ 


88 

063206 

105237 

063467 


14$: 

INCB 

CHRCNT 

INCREMENT CHARACTER COUNT 

89 

063212 

122703 

000040 



CMPB 

#' ,R3 

SPACE?? 

90 

063216 

001002 




BNE 

15$ 

NO!! 

91 

063220 

010237 

063464 



MOV 

R2. BOTADR 

SAVE ADDRESS OF SPACE 

92 

063224 

122737 

000100 

063467 

15$: 

CMP8 

#64. .CHRCNT 

END OF LINE?? 

93 

063232 

103340 




BHIS 

11$ 

NO!! 

94 

063234 

013704 

063464 



MOV 

BOTADR. R4 

GET ADDRESS OF LAST SPACE 

95 

063240 

001007 




BNE 

16$ 

BRANCH IF SPACE DETECTED 

96 

063242 

104401 

001217 



TYPE 

,$CRLF 

TYPE CRLF 

97 

063246 

105037 

063467 



CLRB 

CHRCNT 

CLEAR CHARACTER COUNT 

98 

063252 

013702 

063272 



MOV 

18$. R2 

SET UP R2 FOR TESTING 
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SEO 0253 


99 063256 

100 063260 

101 063262 

102 063270 

103 063272 

104 063274 

105 063300 

106 063302 

107 063306 

108 063312 

109 063316 

110 063322 

111 063326 

112 063332 

113 063334 

114 

115 

116 063336 

117 063342 

118 063344 

119 063350 

120 063354 

121 063360 

122 063364 

123 

124 063366 

125 063370 

126 063372 

127 063376 

128 063400 

129 063402 

130 063404 

131 063406 

132 063410 

133 063412 

134 063414 

135 063416 

136 063420 

137 063422 

138 063424 

139 063426 

140 063430 

141 063432 

142 063434 

143 063436 

144 063440 

145 063444 

146 063446 

147 063452 

148 063454 

149 063456 

150 

151 063460 

152 063462 

153 063464 

154 063466 

155 063467 


000726 

105044 

112737 

104401 

000000 

105737 

001707 


105722 

000677 


016001 

001444 

104401 

016002 

016003 

012137 

001433 

104401 

000000 

104401 

005702 

001767 

012204 

012305 

105725 

100407 

001403 

013446 

104405 

000405 

013446 

104402 

000402 

013446 

104406 

005714 

001403 

104401 

000760 

104401 

000742 

104415 

000207 

000000 

000000 

000000 

000 

000 



16$: 

BR 

CLRB 

11$ 

-(R4) 

177777 063466 


HOVB 

#-1 .BOTFLG 

063466 

17$: 

18$: 

TYPE 

.WORD 

TSTB 

BOTFLG 

001217 


BEQ 

TYPE 

10$ 

,$CRLF 

063466 


CLRB 

BOTFLG 

063467 


CLRB 

CHRCNT 

063<»64 


MOV 

B0TADR.R2 

063272 


MOV 

R2.18S 

000040 


MOVB 

#' ,-(R2) 
(R25* 

11$ 


TSTB 

BR 


001217 


REPLACE SPACE 
SET BOT FLAG 

TYPE ERROR MESSAGE STRING 
STRING ADDRESS GOES HERE 
WAS STRING TRUNCATED?? 
NO!! 

YES-TYPE CRLF 
CLEAR BOT FLAG 
CLEAR CHARACTER COUNT 
SETUP R2 FOR TESTING 
SETUP 18$ FOR TYPING 
RESTORE SPACE 
RESTORE R2 
TYPE REST OF STRING 


000002 

- i i r t 

*9$: 

t'wwn mi 

MOV 

BEQ 

001217 


TYPE 

000004 


MOV 

000006 


MOV 

063370 

20$: 

MOV 

BEQ 

TYPE 


21$: 

.WORD 


ERROR HEADER AND ERROR DATA 
2(R0).R1 
27$ 

.SCRLF 
4(R0).R2 
6(R0).R3 
(R1>*,21$ 

27$ 


0 

TYPE ,$CRLF 

TST R2 

BEQ 20$ 

MOV (R2) +,R4 

MOV (R3)+.R5 

22$: TST8 (R5)* 

BMI 24$ 

BEQ 23$ 

MOV B(R4)*,-(SP) 

TYPDS 

BR 25$ 


R1 POINTS TO ERROR HEADER TABLE 
BRANCH IF NO HEADER 
(ASSUME NO DATA) 

R2 POINTS TO DATA ADDRESS TABLE 
R3 POINTS TO FORMAT TABLE 
PUT HEADER ADDRESS FOR TYPE 
BRANCH IF END OF HEADERS 
(ASSUME END OF DATA) 

HEADER ADDRESS GOES HERE 

DATA WITH HEADER?? 

NO 1 1 

R4‘ POINTS TO DATA ADDRESS 
R5 POINTS TO FORMAT 
UHAT KIND OF DATA?? 

BINARY 

OCTAL 

DECIMAL 



23$: MOV 

TYPOC 

BR 

24$: MOV 

TYPBN 

25$: TST 

B(R4)*.-(SP) 

25$ 

8(R4)*.-(SP) 

(R4) 

MORE DATA?? 


BEO 

26$ 

NO!! 

063522 

TYPE 

.ERTY04 

YES-TYPE 2 SPACES 

BR 

$2$ 

AND CONTINUE 

001217 

26$: TYPE 

,$CRLF 

TYPE ONE BLANK LINE 

BR 

io$ 

BEFORE NEXT HEADER 


27$: RESREG 

RTS 

TSTNMB: .WORD 

PC 

0 

TEST NUMBER 


ERRNMB: .WORD 

0 

ERROR NUMBER 


BOTADR: .WORD 

0 

BEGINNING OF TEXT ADDRESS 


BOTFLG: .BYTE 

0 

BOT FLAG 


CHRCNT: .BYTE 

0 

CHARACTER COUNT 
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J 4 


SEO 0254 


156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 


063470 

104 

122 

126 

063475 

054 

040 

124 

063505 

054 

040 

105 

063514 

054 

040 

120 

063522 

040 

040 

000 

063525 

040 

055 

040 

063532 

063542 

063630 

063646 

063542 

063546 

000000 

127 

063546 

120 

117 

063630 

063634 

000000 

125 

063634 

103 

120 

063646 

063650 

063650 

062640 

000000 


063654 

063656 

063656 

000 

000 



ERTYOO: 

.ASCI2 

BDRVJa 

ERTY01: 

.ASCIZ 

a, TESTta 

ERTY02: 

.ASCI2 

a, ERR#a 

ERTY03: 

•ASCIZ 

a, pc=a 

ERTV04: 

.ASCIZ 

a a 

ERTY05: 

• EVEN 
PFECH: 

.ASCIZ 

a - a 

PFECH1 , 

.PFECH2.PFECH3.PFECH4 

PFECH1 : 

.♦4,0 



.ASCIZ 

.EVEN 

? POWER MONITOR BIT 

PFECH2: 

.♦4,0 



.ASCIZ 

.EVEN 

7CPUERREG? 

PFECH3: 

.♦2 



.WORD 

CPSAVE.O 

PFECH4: 

.♦2 

0,0 


.BYTE 


.-WORDS DEFINING TABLES BELOW 
IN CPU ERROR REGISTER FOUND SET? 
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A 4 


SEO 0255 


1 


063660 000000 
065662 000000 
063664 000000 
063666 

063667 


063670 

063674 

063702 

063710 

063716 

063724 

063730 

063736 


005037 

012737 

013737 

012737 

012737 

005777 

012777 

000207 


063740 

063744 

063750 

063754 

063756 

063760 

063762 

063762 

063766 

063770 

063774 

064000 

064002 

064006 

064012 

064014 

064022 

064024 

064024 

064032 

064034 


.S8TTL TTY INPUT ROUTINE 


.ENABL 188 
STKCNT: .WORD 0 
STKQIN: .WORD 0 
STKOOUT : .WORD 0 
STKQSRT: .8LK8 1 

STKQEND=. 

.EVEN 


; .-NUMBER OF ITEMS IN QUEUE 
.-.-INPUT POINTER 
; .-OUTPUT POINTER 
;;TTY KEYBOARD QUEUE 


• TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


063660 

063666 063662 
063662 063664 
063740 000060 
000200 000062 
115232 

000100 115222 


•CALL : 

• JSR 

• RETURN 

ITKINT: CLR 
MOV 
MOV 
NOV 
MOV 
TST 
MOV 
RTS 


PC.fTKINT 


STKCNT 

DSTKQSRT.STKQIN 
STKQIN, STKQOUT 
fSTKSRV , BfTKVE C 
#200.a#fKVEC*2 
iSTKB 

J100.BSTKS 

PC 


;; CLEAR COUNT OF ITEMS IN OUEUE 
.-.-MOVE THE STARTING ADDRESS OF THE 
; .-OUEUE INTO THE INPUT t OUTPUT POINTERS. 
; .-INITIALIZE THE KEYBOARD VECTOR 
;;'BR" LEVEL 4 
; .CLEAR DONE FLAG 
.-.-ENABLE TTY KEYBOARD INTERRUPT 
.-.-RETURN TO CALLER 


•TK SERVICE ROUTINE . 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

•If the T character is a "control-c" <*c> stkint is called and 

•UPON RETURN EXIT IS MADE TO THE ' 'CONTROL -C RESTART ADDRESS (SHUT2) 

.-.-PICKUP THE CHARACTER 
; .-STRIP THE JUNK 
;;IS IT A RANDOM XON? 

.-.-BRANCH IF NO 

;; CLEAN RANDOM XON OFF STACK 
;; RETURN 

;;IS IT A CONTROL C? 

.-.-BRANCH IF NO 
.-.-TYPE A CONTROL-C <*C> 

; ; INIT THE KEYBOARD 
;; CLEAN UP STACK 
;; CONTROL C RESTART 
;;IS IT A CONTROL G? 

; .-BRANCH IF NO 
;;1S SOFT-SWR SELECTED? 

;;G0 TO SWR CHANGE 

;;IS THE QUEUE FULL? 

.-.-BRANCH IF NO 
.-.-RING THE TTY BELL 


117746 

042716 

115216 

177600 


iTKSRV: 

MOVB 

B1C 

BSTKB--(SP) 

#*C177.(SP> 

<SP),#SX0N 

021627 

000021 



CMP 

001002 




BNE 

30S 

005726 




TST 

<SP>* 

000002 



30S: 

RTI 

(SP).f 3 

021627 

000003 


CMP 

001007 




BNE 

IS 

104401 

065066 



TYPE 

.SCNTLC 
^C. STKINT 

004737 

06367C 



JSR 

005726 




TST 

(SP)+ 

000137 

065130 



JMP 

SHUT 2 

021627 

000007 


IS: 

CMP 

(SP).#7 

m 

000176 

001154 


BNE 

CMP 

2S 

fSUREG.SWR 

001500 



2S: 

BEO 

6S 

022737 

000001 

063660 


CMP 

#1. STKCNT 

001004 




BNE 

3$ 

104401 

001212 



TYPE 

.S6ELL 
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SEQ 0256 


064040 

005726 



TST 

ISP)* 

;; CLEAN CHARACTER OFF OF STACK 

064042 

000451 



BR 

5$ 

.-.-EXIT 

064044 

021627 

000023 

3$: 

CMP 

(SP) .#23 

;;IS IT A CONTROL-S? 

064050 

001021 



BNE 

32$ 

.-.-BRANCH IF NO 

064052 

005077 

115102 


CLR 

B$TKS 

.-.-DISABLE TTY KEYBOARD INTERRUPTS 

064056 

005726 



TST 

(SP)* 

;; CLEAN CHAR OFF STACK 

064060 

105777 

115074 

31$: 

TSTB 

a$TKS 

.-.-WAIT FOR A CHAR 

064064 

100375 



BPL 

31$ 

.-.-LOOP UNTIL ITS THERE 

064066 

117746 

115070 


MOVB 

a$TK3,-(SP) 

A-C177.CSP) 

.-.-GET THE CHARACTER 

064072 

042716 

177600 


BIC 

.-.-MAKE IT 7-BIT ASCII 

064076 

022627 

000021 


CMP 

(SP)*, If 21 

;;1S IT A CONTROL-Q? 

064102 

001366 


BNE 

31$ , 

#100,a$TKS 

;. -BRANCH IF NO 

064104 

012777 

000100 115046 


MOV 

.-.-REENABLE TTY KEYBOARD INTERRUPTS 

064112 




RTI 

; .-RETURN 

064114 

005237 

063660 

32$: 

INC 

$TKCNT 

;; COUNT THIS CHARACTER 

064120 

021627 

000140 


CMP 

(SP),#140 

;;IS IT UPPER CASE? 

064124 

002405 



BLT 

4$ 

; .-BRANCH IF YES 

064126 

021627 

000175 


CMP . 

(SP),#175 

;;IS IT A SPECIAL CHAR? 

064132 

003002 


- 

BGT 

4$ 

;. -BRANCH IF YES 

064134 

042716 

000040 


BIC 

#40. (SP) 
(SP)+,a$TKQIN 

.-.-MAKE IT UPPER CASE 

064140 

112677 

177516 

4$: 

MOVB 

.-.-AND PUT IT IN QUEUE 

064144 

005237 

063662 

* 

INC 

STKQIN 

;. -UPDATE THE POINTER 

064150 

023727 

063662 063667 


CMP 

$TKQIN,#$TKQEND 

;;G0 OFF THE END? 

064156 

001003 

* 


BNE 

5$'.*‘ * . • - 

,- .-BRANCH IF NO 

064160 

012737 

063666 063662 


, MOV ‘ 

#$TKQSRT .STKQIN 

.-.-RESET THE POINTER 

064166 


- 

5$: 

rti ; 


;. -RETURN 



• 

••***< 



4 , , „ » 


064170 022737 , 000176 001154 
064176 001124 
064200 105777 114754 
064204 100121 
064206 117746 114750 
064212 042716 177600 
064216 021627 000007 
064222 001300 


*SOFTUARE SWITCH REGISTER CHANGE ROUTINE. 

‘ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
‘SERVICE THETEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
‘CALL WHEN OPERATING IN TTY INTERRUPT RODE. 


• hi ibi < v* 

$CKSWR:CMP v - 
5 BNE 

TSTB 
. BPL 
MOVB 
BICy- 
* CM p:. 

BNE“v 


#SWREG,SWR , ;;IS THE SOFT-SWR SELECTED 
15$ , - „ . * I;;EXIT IF NOT 

3STKS 1 ;;ISA CHAR WAITING? 

15$ \ ;;IF NOT, EXIT 

a$TKB,-(SP) ;;YES ^ 

#*C177,CSP) ;;HAKE IT 7-BIT ASCII 

<SP),#fc. ;;IS IT A CONTROL-G? 

2$? ;;IF NOT; PUT IT, IN THE TTY QUEUE 

;; AND EXIT „ 


064224 123727 001150 000001 
064232 001674 
064234 005726 
064236 004737 063670 
064242 005077 114712 
064246 112737 000001 001151 

064254 104401 065100 
064260 104401 065105 
064264 013746 000176 
064270 104402 


•CONTROL JS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
•CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


6$: CMP8 

BEQ ' 
,TST 
JSR 
CLR 
MOVB 

TYPE 

SGTSWR: TYPE 
MOV 
TYPOC 


$AUT08,#1 ' ; ; ARE WE RUNNING IN AUTO-MODE? 

2$ - .-.-BRANCH IF YES 

(SP)* ;; CLEAR CONTROL-G OFF STACK 

PC.STKINT ;;FLUSH THE TTY INPUT QUEUE 

BSTKS ; .-DISABLE TTY KEYBOARD INTERRUPTS 

ffl.SINTAG ;;SET INTERRUPT MODE INDICATOR 

,$CNTLG ,-,-ECHO THE CONTROL-G (*G) 

,$MSWR .-.-TYPE CURRENT CONTENTS 

SWREG.-(SP) .-.-SAVE SWREG FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII CALL DIGITS) 
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H 4 


SEQ 0257 


064272 

104401 

065116 



TYPE 

,$MNEU 

PROMPT FOR NEW SUR 

064276 

005046 



19$: 

CLR 

-(SP) 

CLEAR COUNTER 

064300 

005046 




CLR 

-(SP) 

THE NEW SUR 

064302 

105777 

114652 


7$: 

TSTB 

a$TKS 

CHAR THERE? 

064306 

100375 




BPL 

7$ 

IF NOT TRY AGAIN 

064310 

117746 

114646 



M0V8 

aSTKB.-(SP) 

PICK UP CHAR 

064314 

042716 

177600 



BIC 

#*C177, (SP) 

MAKE IT 7-BIT ASCII 

064320 

021627 

000003 



CMP 

(SP),#3 ; 

IS IT A CONTROL-C? 

064324 

001015 




BNE 

9$ 

BRANCH IF NOT 

064326 

104401 

065066 



TYPE 

,$CNTLC 

YES, ECHO CONTROL-C (*C) 

064332 

062706 

000006 



ADD 

#6.SP 

CLEAN UP STACK 

06433o 

123727 

001151 

000001 


CMP8 

$INTAG,#1 

REENABLE TTY KEYBOARD INTERRUPTS? 

064344 

001003 




BNE 

8$ 

BRANCH IF NO 

064346 

012777 

000100 

114604 


MOV 

#100.3$. KS 

ALLOW TTY KEYBOARD INTERRUPTS 

064354 

000137 

065130 


8$: 

JMP 

SHUT2 

CONTROL-C RESTART 

064360 

021627 

000025 


9$: 

CMP 

(SP) ,#25 

;IS IT A CONTROL -U? 

064364 

001005 




BNE 

10$ 

; BRANCH IF NOT 

064366 

104401 

065073 



TYPE 

,$CNTLU 

;YES, ECHO CONTROL-U (*U) 

064372 

062706 

000006 


20$: 

ADD 

#6.SP 

; IGNORE PREVIOUS INPUT 

064376 

000737 




BR 

19i 

.•LET'S TRY IT AGAIN 

064400 

021627 

000015 


10$: 

CMP 

(SP) ,#15 

;1S IT A <CR>? 

064404 

001022 




BNE 

16$ 

.•BRANCH IF NO 

064406 

005766 

000004 



TST 

4(SP) 

;YES, IS IT THE FIRST CHAR? 

064412 

001403 




BEG 

11$ 

.•BRANCH IF YES 

064414 

016677 

000002 

114532 


NOV 

2(sp), asuR 

.‘SAVE NEU SUR 

064422 

062706 

000006 


11$: 

ADD 

#6 ,SP 

.‘CLEAR UP STACK 

064426 

104401 

001217 


14$: 

TYPE 

,$CRLF 

.•ECHO <CR> AND <LF> 

064432 

123727 

001151 

000001 


CMPB 

$INTAG,#1 

; RE-ENABLE TTY KBD INTERRUPTS? 

064440 

001003 




BNE 

15$ 

.•BRANCH IF NOT 

064442 

012777 

000100 

114510 


NOV 

#100,a$TKS 

; RE-ENABLE TTY KBD INTERRUPTS 

064450 




15$: 

RTI 


.‘RETURN 

064452 

004737 

061346 


16$: 

JSR 

PC,$TYPEC 

.•ECHO CHAR 

064456 

021627 

000060 



CMP 

(SP) ,#60 

.‘CHAR < 0? 

064462 

002420 




BLT 

18$ 

.‘BRANCH IF YES 

064464 

021627 

000067 



CMP 

(SP) ,#67 

.•CHAR > 7? 

064470 

003015 




BGT 

18$ 

.‘BRANCH IF YES 

064472 

042726 

000060 



BIC 

#60, (SP)* 

; STRIP-OFF ASCII 

064476 

005766 

000002 



TST 

2(SP) 

;IS THIS THE FIRST CHAR 

064502 

001403 




BEO 

17$ 

.•BRANCH IF YES 

064504 

006316 




ASL 

(SP) 

;N0, SHIFT PRESENT 

064506 

006316 




ASL 

(SP) 

; CHAR OVER TO HAKE 

064510 

006316 




ASL 

(SP) 

; ROOM FOR NEU ONE. 

064512 

005266 

000002 


17$: 

INC 

2(SP) 

;KEEP COUNT OF CHAR 

064516 

056616 

177776 



BIS 

-2(SP), (SP) 

.-SET IN NEU CHAR 

064522 

000667 




BR 

7$ 

.-GET THE NEXT ONE 

064524 

104401 

001216 


18$: 

TYPE 

-$QUES 

.•TYPE ?<CRXLF> 

064530 

000720 


‘ 


BR 

2o$ 

.•SIMULATE CONTROL-U 





.DSABL 

LSB 




9 9 
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SEO 0238 


064532 

064534 

064542 

064546 

064550 

064554 

064556 

064556 

064562 

064564 

064570 

064576 

064602 

064610 

064612 

064620 


011646 

016666 

005066 

005046 

012746 

000002 

005737 

001775 

005337 

117766 

005237 

023727 

001003 

012737 

000002 


064622 

064624 

064626 

064632 

064636 

064640 

064642 

064644 

064650 

064652 

064654 

064656 

064664 

064670 

064674 

064676 

064702 

064704 

064710 

064714 

064716 

064720 

064722 

064730 

064734 

064736 

064742 


000004 

000004 

064556 


063660 

063660 

177070 

063664 

063664 


000002 


010346 

005046 

012703 

022703 

101456 

104411 

112613 

122713 

001022 

005716 

001007 

112737 

104401 

012716 

005303 

020327 

103434 

111337 

104401 

000746 

005716 

001406 

112737 

104401 

005016 

122713 

001003 


♦THIS ROUTINE UILL INPUT A SINGLE CHARACTER FROM THE TTY 
♦CALL: 

♦ RDCHR ;;GET A CHARACTER FROM THE QUEUE 

♦ RETURN HERE ;; CHARACTER IS ON THE STACK 

♦ ;;WITH PARITY BIT STRIPPED OFF 


; ; PUSH DOWN THE PC AND 
; ; THE PS 

;;GET READY FOR A CHARACTER 
;;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
;;P0 P NEW PC AND PS 


000004 

063667 


063666 063664 


SRDCHR: 

MOV 

(SP).-(SP) 

MOV 

4<sp5.2(sp> 


CLR 

4<SP> 


CLR 

-<SP) 

64$: 

MOV 

RTI 

#64$, -(SP) 

1$: 

TST 

$TKCNT 


BEQ 

1$ 


DEC 

$TKCNT 


MOVB 

a$TKQ0UT,4(SP) 


INC 

$TKQOUT 


CMP 

$TKQOUT,#$TKQEND 


BNE 

2$ 


MOV 

#$TKQSRT,$TKQOUT 

2$: 

RTI 



; ; WAI T ON A CHARACTER 

;; DECREMENT THE COUNTER 
;;GET ONE CHARACTER 
;; UPDATE THE POINTER 
;;DID IT GO OFF OF THE 
; .'BRANCH IF NO 
; .-RESET THE POINTER 
; .-RETURN 


♦THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

I CALL * RDLIN ;; INPUT A STRING FROM THE TTY 

♦ RETURN HERE ; .'ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

♦ ;; TERMINATOR WILL BE A BYTE OF ALL O’S 


065056 

065066 


000177 


000134 

065054 

177777 

065056 

065054 

065054 


000134 

065054 

000025 


065054 


065054 


$RDLIN: 

MOV 

R3.-(SP) 


CLR 

-(SP) 

1$: 

MOV 

#$TTYIN,R3 

2$: 

CM P 

#$TTYIN*8. ,**3 


BLOS 

RDCHR 

4$ 


MOVB 

<SP)*,(R3) 

10$: 

CMP8 

#177, (R3) 


BNE 

5$ 


TST 

(SP) 


BNE 

6$ 


MOVB 

#'\,9$ 


TYPE 

,9$ 


MOV 

#-1,(SP) 

6$: 

DEC 

R3 


CMP 

R3,#$TTYIN 


8L0 

4$ 


MOVB 

(R3) ,9$ 


TYPE 

.9$ 


BR 

H 

5$: 

TST 

(SP) 


BEQ 

7$ 


MOVB 

#'\,9$ 


TYPE 

,9$ 


CLR 

(SP) 

7$: 

CMP8 

#25. (R3) 


BNE 

8$ 


.'.•SAVE R3 

;; CLEAR THE RU60UT KEY 
;;GET ADDRESS 
; .'BUFFER FULL? 

* IF YES 

;;G0 READ ONE CHARACTER FROM THE TTY 
;;GET CHARACTER 
;;IS IT A RUBOUT 
* 'BR IF NO 

;;IS THIS THE FIRST RUBOUT? 

;;BR IF NO 
; ; TYPE A BACK SLASH 

;;SET THE RUBOUT KEY 
; .-BACKUP BY ONE 
; .'STACK EMPTY? 

' *BR IF YES 

••SETUP TO TYPEOUT THE DELETED CHAR. 
;;G0 TYPE 

;.*G0 READ ANOTHER CHAR. 

; .'RUBOUT KEY SET? 

;;BR IF NO 
; ; TYPE A BACK SLASH 

.‘.'CLEAR THE RUBOUT KEY 
;;IS CHARACTER A CTRL U? 

;;BR IF NO 
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064744 

104401 

065073 


TYPE 

064750 

064752 

000726 

122713 

000022 


8$: CMPB 

064756 

001011 



BNE 

064760 

105013 



CLRB 

064762 

104401 

001217 


TYPE 

064766 

104401 

065056 


TYPE 

064772 

000717 



BR 

064774 

104401 

001216 


4$: TYPE 

065000 

000712 



BR 

065002 

111337 

065054 


3S: MOVB 

065006 

104401 

065054 


TYPE 

065012 

122723 

000015 


CMPB 

065016 

001305 



BNE 

065020 

105063 

177777 


CLRB 

065024 

104401 

001220 


TYPE 

065030 

005726 



TST 

065032 

012603 



MOV 

065034 

011646 


000002 

MOV 

065036 

016666 

000004 

MOV 

065044 

012766 

065056 

000004 

MOV 

065052 

000002 



RTJ 

065054 

000 



9$: .BYTE 

065055 

000 



.BYTE 

065056 



STTYIN: .BLKB 

065066 

136 

103 

015 

SCNTLC: .ASCIZ 

065073 

136 

125 

015 

SCNTLU: .ASCIZ 

065100 

136 

107 

015 

SCNTLG: .ASCIZ 

065105 

015 

012 

123 

SM SWR: .ASCIZ 

065116 

040 

040 

116 

SMNEU: .ASCIZ 
.EVEN 

065130 

012737 

177777 

001326 

SHUT2: MOV 

065136 

105737 

001116 


TSTB 

065142 

001002 



BNE 

065144 

000137 

033776 


JMP 

065150 

000002 



IS: RTI 


PA6E 44-4 


B b 


.SCNTLU 

\% 

#22, (R3) 

3$ 

(R 31 

,$CRIF 

.STTYIN 

h 

,$QUES 

1$ 

(R3),9S 

,9$ 

#15, (R3> 

2* 

-1 (R3> 

.SLF 

(SP>* 

(SP>+, R3 
(SP),-(SP) 
4<SP).2(SP> 
#$TTYIN,4(SP) 

0 

0 

8 . 

/*C/<15xl2> 

/*U/<15x12> 

/ A 6/<15X12> 
<15><12>/SUR 
/ NEW = / 


= / 


;;TYPE A CONTROL 'V 
; ; GO START OVER 
; ; I S CHARACTER A "•P"? 

;; BRANCH IF NO 
;; CLEAR THE CHARACTER 
;;TYPE A "CR" ft , 1F ,> 

;;TYPE THE INPUT STR1N6 
;;GO PICKUP ANOTHER CHACTER 
;;TYPE A 

;; CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

;; CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
; .-CLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 
; .-CLEAN RU80UT KEY FROM THE STACK 
.-.-RESTORE R3 

;; ADJUST THE STACK AND PUT ADDRESS OF THE 
;; FIRST ASCII CHARACTER ON IT 

;; RE TURN 

.-.-STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 

;. -RESERVE 8 BYTES FOR TTY INPUT 
;; CONTROL "C" 

;; CONTROL 'V 
;; CONTROL ,, G , ‘ 


#-1,CTLFG 

STSTNM 

IS 

SHUT 


SET THE CONTROL-C FLAG 
DOING ANY TESTS ? 

BR IF YES 
NO--RESPOND TO A C 
EXIT FROM INTERRUPT 


SEO 0259 
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READ AN OCTAL NUMBER FROM THE TTY 


C 5 


SEO 0260 


1 


•SBTTL READ AN OCTAL NUMBER FROM THE TT 


•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
•CHANGE IT TO BINARY. 

•CALL: 





.-* RDOCT 





;• RETURN HERE 

;* 

065152 

011646 


SRDOCT: MOV 

(SP), -(SP) 

065154 

016666 

000004 000002 

MOV 

4(SP).2(SP) 

065162 

010046 


MOV 

RO.-(SP) 

065164 

010146 


MOV 

RI.-(SP) 

065166 

010246 


MOV 

R2.-(SP) 

065170 

104412 


IS: RDLIN 


065172 

012600 


MOV 

(SPJ+.RO 

065174 

005001 


CLP 

R1 

065176 

005002 


CLR 

R2 

065200 

112046 


2S: MOVB 

(RO)*,-(SP) 

065202 

001412 


BEQ 

3$ 

065204 

006301 


ASL 

R1 

065206 

006102 


ROL 

R2 

065210 

006301 


ASL 

R1 

065212 

006102 


ROL 

R2 

065214 

006301 


ASL 

R1 

065216 

006102 


ROL 

R 2 

065220 

042716 

177770 

BIC 

»*C7.1SP) 

065224 

062601 


ADD 

(SP)*,R1 

065226 

000764 


BR 

2$ 

065230 

005726 


3$: TST 

(SP) + 

065232 

010166 

000012 

MOV 

R1.12(SP) 

065236 

010237 

065252 

MOV 

R2. SHIOCT 

065242 

012602 


MOV 

(SPJ+.R2 

065244 

012601 


MOV 

(SPJ+.R1 

065246 

012600 


MOV 

(SP)*. RO 

065250 



RTI 


065252 



SHIOCT: .WORD 

0 


;;READ AN OCTAL NUMBER 
; ; LOU ORDER BITS ARE ON TOP OF THE STACK 
..HIGH ORDER BITS ARE IN SHIOCT 

;; PROVIDE SPACE FOR THE 

;; INPUT NUMBER 

.-.-PUSH RO ON STACK 

;;PUSH R1 ON STACK 

.-.-PUSH R2 ON STACK 

.-.-READ AN ASCI Z LINE 

;;GET ADDRESS OF 1ST CHARACTER 

.-.-CLEAR DATA UORD 

; .-PICKUP THIS CHARACTER 

;;IF ZERO GET OUT 

;;*2 

; ; *4 

; ; *8 

; .-STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 
.-.-LOOP 

.-.-CLEAN TERMINATOR FROM STACK 
.-.-SAVE THE RESULT 

;;POP STACK INTO R 2 
.-.-POP STACK INTO R1 
.-.-POP STACK INTO RO 
; .-RETURN 

.-.’HIGH ORDER BITS GO HERE 
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D 5 


SEQ 0261 


.SSTTL TRAP DECODER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
.’•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 


06S254 

016646 000002 

STRAP: 

MOV 

2(SP) ,-(SP) 

.’ASSUME THE STATUS OF 

065260 

042716 000020 


BIC 

#20, (SP) 

; THE CALLER— DO NOT ALLOW 

065264 

012746 065272 


MOV 

#1S,-(SP) 

; T-BIT TRAPS 

065270 

000002 


RTI 


.-SET THE NEW STATUS 

065272 

010046 

IS: 

NOV 

RO.-(SP) ; 

,’SAVE RO 

065274 

016600 000002 


MOV 

2(SP) ,R0 

.-GET TRAP ADDRESS 

065300 

005740 


TST 

-<R0) 

.BACKUP BY 2 

065502 

111000 


MOVB 

(RO).RO 

.’GET RIGHT BYTE OF TRAP 

065304 

006300 


ASL 

RO 

.’POSITION FOR INDEXING 

065306 

016000 065326 


NOV 

STRPAD (RO).RO ; 

.’INDEX TO TABLE 

065312 

000200 


RTS 

RO 

;G0 TO ROUTINE 



;;THIS 

IS USE TO HANDLE THE "GETPRI" MACRO 

065314 

011646 

STRAP2: 

NOV 

(SP).-(SP) 

.’MOVE THE PC DOWN 

065316 

016666 000004 

000002 

NOV 

4(SP),2(SP> 

.-MOVE THE PSk DOWN 

065324 

000002 


RTI 


.’RESTORE THE PSW 



.SBTTL 

TRAP TABLE 




.’•THIS 

TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 



;*BV THE "TRAP" 

INSTRUCTION. 




• 

• 

ROUTINE 



065326 

065314 

STRPAD: 

.WORD 

STRAP2 


065330 

061134 


STYPE 

;;CALL=TYPE TRAP+K 104401) TTY TYPEOUT ROUTINE 

065332 

060732 


STYPOC 

;;CALL-TYPOC TRAP+2C 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

065334 

060706 


STYPOS 

; .’CALL-TYPOS TRAP+3C 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

065336 

060746 


STYPON 

; ; CALL*TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

065340 

060462 


STYPDS 

;;CALL=TYPDS TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 

065342 

060406 


STYP8N 

;;CALL=TYPBN TRAP+6( 104406) TYPE BINARY (ASCII) NUMBER 

065344 

064260 


SGTSWR 

;;CALL*GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 

065346 

064170 


SCKSWR 

;;CALL-CKSWft TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 

065350 

064532 


SRDCHR 

;;CALL=RDCHR TRAP+11 (104411) TTY TYPEIN CHARACTER ROUTINE 

065352 

064622 


SRDLIN 

;;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 

065354 

065152 


SRDOCT 

;;CALL-RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 

065356 

060312 


SSAVREG 

;;CALL-SAVREG TRAP+14( 104414) SAVE R0-R5 ROUTINE 

065360 

060350 


SRESREG 

;;CALL=RESREG TRAP+15(104415) RESTORE H0-R5 ROUTINE 


C2RNFA0 RM80 FCTNL PT3 MACRO V04.00 28-JAN-82 16:49:32 PAGE 47 
POWER DOWN AND UP ROUTINES 


E 5 


0262 


.S8TTL POWER DOWN AND UP ROUTINES 






•POWER DOWN ROUTINE 

06S362 

012737 

065522 

000024 

SPWRDN: MOV 

#SILLUP,3#PWRVEC 

065370 

012737 

000340 

000026 

MOV 

#340,8#PWRVEC+2 ; 

065376 

010046 



MOV 

RO. -(SP) 

065400 

010146 



MOV 

RI.-(SP) 

065402 

010246 



MOV 

R2.-(SP) 

065404 

010346 



MOV 

R3. -(SP) 

065406 

010446 



MOV 

R4. -(SP) 

065410 

010546 



MOV 

R5. -(SP) 

065412 

017746 

113536 


MOV 

iSWR.-(SP) 

065416 

010637 

065526 


MOV 

SP.SSAVR6 

065422 

012737 

065434 

000024 

MOV 

#$PWRUP,a#PWRVEC 

065430 

000000 



HALT 


065432 

000776 



BR 

.-2 





•POWER UP ROUTINE 

065434 

012737 

065522 

000024 

SPWRUP : MOV 

#$ILLUP.a#PWRVEC 

065442 

013706 

065526 


MOV 

SSAVR6. SP 

065446 

005037 

065526 


CLR 

SSAVR6 

065452 

005237 

065526 


IS: INC 

SSAVR6 

065456 

001375 



BNE 

IS 

065460 

012677 

113470 


MOV 

(SP)+.aSWR 

065464 

012605 



MOV 

(SP)+. R5 

065466 

012604 



MOV 

(SP) +.R4 

065470 

012603 



MOV 

(SP) +.R3 

065472 

012602 



MOV 

(SPH. R2 

065474 

012601 



MOV 

(SP>+, R1 

065476 

012600 



MOV 

(SP)+,RO 

065500 

012737 

065362 

000024 

MOV 

f SPWRDN, a#PWRVEC 

065506 

012737 

000340 

000026 

MOV 

4f340,a#PWRVEC+2 

065514 

104401 



TYPE 


065516 

065530 



SPWRMG: .WORD 

SPOWER 

065520 

000002 



RTI 


065522 

000000 



SILLUP: HALT 


065524 

000776 



BR 

.-2 

065526 

000000 



SSAVR6: 0 


065530 

015 

012 

120 

SPOWER: .ASCIZ 

<15><1 2>* POWER” 


;;SET 

;PRIO: 

.-PUSH 

;PUSH 

.-PUSH 

.-PUSH 

.-PUSH 

.-PUSH 

.'PUSH 

.‘SAVE 

; ; SET 


FOR FAST UP 
7 

RO ON STACK 


R1 

R2 


ON STACK 
ON STACK 


R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
8SWR ON STACK 
SP 

UP VECTOR 


.‘HANG UP 


;;SET FOR FAST DOWN 
;GET SP 

.-WAIT LOOP FOR THE TTY 
.-WAIT FOR THE INC 
;0F WORD 

.-POP STACK INTO 8SWR 

.-POP STACK INTO R5 

.-POP STACK INTO R4 

.-POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO R1 

;POP STACK INTO RO 

;;SET UP THE POWER DOWN VECTOR 

;PRI0:7 

REPORT THE POWER FAILURE 
.-POWER FAIL MESSAGE POINTER 

;THE POWER UP SEQUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 
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EG 0263 

APT COMMUNICATIONS ROUTINE 









.S8TTL 

APT COMMUNICATIONS ROUTJN 

E 

065540 

1 12737 

000001 

066004 

iATYl : 

RC'VB 

#1, SFFLG 

TO REPORT FATAL ERROR 

065546 

112737 

000001 

066002 

SATY3: 

M0V8 

#1 .SNFLG 

TO TYPE A MESSAGE 

065554 

000403 




BR 

SATYC 


065556 

112737 

000001 

066004 

$ATY4: 

MOVE 

#1. SFFLG 

TO ONLY REPORT FATAL ERROR 

065564 

065564 

010046 



SATYC: 

NOV 

RO.-(SP) 

PUSH RO ON STACK 

065566 

010146 




MOV 

RI.-(SP) 

PUSH R1 ON STACK 

065570 

105737 

066002 



TSTB 

SMFLG 

SHOULD TYPE A MESSAGE? 

065574 

001450 

122737 




BEO 

5$ 

IF NOT: BR 

065576 

000001 

001242 


CMPB 

PAPTENV.SENV 

OPERATING UNDER APT? 

065604 

001031 




BNE 

3$ 

IF NOT: BR 

065606 

132737 

000100 

001243 


BITS 

#APT SPOOL , SENVM ; 

SHOULD SPOOL MESSAGES? 

065614 

001425 




BEO 

3$ 

IF NOT: BR 

065616 

017600 

000004 



MOV 

84(SP),R0 

GET MESSAGE ADDR. 

065622 

062766 

000002 

000004 


ADD 

#2,4(SP) 

;;BUNP RETURN ADDR. 

065630 

005737 

001222 


1$: 

TST 

SMSGTYPE 

SEE IF DONE W/ LAST XMISSION? 

065634 

001375 




BNE 

1$ 

IF NOT: WAIT 

065636 

010037 

001236 



MOV 

RO.SMSGAD 
(R0) + 

PUT ADDR IN MAILBOX 

065642 

105720 



2$: 

TSTB 

FIND END OF MESSAGE 

065644 

001376 




BNE 

2$ 


065646 

163700 

001236 



SUB 

SMSGAD.RO 

SUB START OF MESSAGE 

065652 

006200 




ASR 

RO 

GET MESSAGE LNGTH IN WORDS 

065654 

010037 

001240 



MOV 

RO.SMSGLGT 

PUT LENGTH IN MAILBOX 

065660 

012737 

000004 

001222 


MOV 

#4. SMSGTYPE 

TELL APT TO TAKE MSG. 

065666 

000413 




BR 

5$ 


065670 

017637 

000004 

065714 

3$: 

MOV 

84 (SP) .4$ ; 

PUT MSG ADDR IN JSR LINKAGE 

065676 

062766 

000002 

000004 


ADD 

#2.4 (SP) 

;;8UM P RETURN ADDRESS 

065704 

013746 

177776 



MOV 

1 77776, -(SP) 

PUSH 177776 ON STACK 

065710 

004737 

061134 



JSR 

PC.STYPE 

CALL TYPE MACRO 

065714 

000000 



4$: 

.WORD 

0 


065716 




5$: 




065716 

105737 

066004 


10$: 

TSTB 

SFFLG 

.'SHOULD REPORT FATAL ERROR? 

065722 

001416 




BEO 

12$ 

;If NOT: 3 R 

065724 

005737 

001242 



TST 

SENV 

.'RUNNING UNDER APT? 

065730 

001413 




BEO 

12$ 

;IF NOT: BR , 

065732 

005737 

001222 


11$: 

TST 

SMSGTYPE 

.‘FINISHED LAST MESSAGE? 

065736 

001375 




BNE 

11$ 

;IF NOT: WAIT 

065740 

017637 

000004 

001224 


MOV 

84(SP),$FATAL ; 

.‘GET ERROR f 

065746 

062766 

000002 

000004 


ADD 

#2.4(SP) 

;:BUNP RETURN ADDR. 

065754 

005237 

001222 



INC 

SMSGTYPE 

.'TELL APT TO TAKE ERROR 

065760 

105037 

066004 


12$: 

CLftB 

SFFLG 

; CLEAR FATAL FLAG 

065764 

105037 

066003 



CLRB 

SLFLG 

.'CLEAR LOG FLAG 

065770 

105037 

066002 



CLRB 

SMFLG 

.’CLEAR MESSAGE FLAG 

065774 

012601 




MOV 

(SP) +.R1 

,‘POP STACK INTO R1 

065776 

012600 




MOV 

(SP) +.R0 

;P0 P STACK INTO RO 

066000 

000207 




RTS 

PC 

.RETURN 

066002 

000 



SMFLG: 

.BYTE 

0 

,‘MESSG. FLAG 

066003 

000 



$LFLG: 

.BYTE 

0 

.‘LOG FLAG 

066004 

000 



$FFLG: 

.BYTE 

.EVEN 

0 

.'FATAL FLAG 


000200 



APTSIZE 

= 200 




000001 



APTENV 

= 001 




000100 



APTSP00L= 100 




000040 



APTCSUP 

= 040 
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.S8TTL CONSOLE MESSAGES 


3 066006 

4 066072 

5 066074 

6 066101 

7 066105 

8 066110 
9 066176 

10 066264 

11 066352 

12 066440 

13 066467 

14 066470 

15 066521 

16 066531 

17 066573 

18 066602 

19 066636 

20 066723 

21 067000 

22 067001 

23 067022 

24 067036 

25 067044 

26 067062 

27 067067 

28 067104 

29 067121 

30 067136 

31 067155 

32 067166 

33 067176 

34 067225 

35 067232 

36 067234 

37 067236 

38 067237 

39 06724C 

40 067241 

41 


101 SCTMSG: 
EQUALS: 

114 ALL: 

040 QUES: 
000 COMMA: 
117 MSHELP: 

125 

105 
110 
101 

131 

115 CNSL01: 
111 CNSL02: 

126 CNSL03: 
111 CNSL04: 
131 CNSL07: 

116 

CNSL08: 
111 CNSL09: 
122 MSDRVS: 
111 MS6DRV: 

116 SYSTAT: 
070 SRM80: 

117 NOTRM: 
117 LODEV: 
117 NOTPRS: 
117 NOTAVl: 

106 UNTOFF: 
116 UNTON: 
122 DRIVES: 
116 NONE: 


116 

000 

N: .ASCIZ 

/N/ 

131 

000 

Y: .ASCIZ 

/Y/ 

040 


8LNKS4 : .ASCII 

/ / 

040 


8LNKS3: .ASCII 

/ / 

040 


BLNKS2: .ASCII 

/ / 

040 

000 

8LNKS1: .ASCIZ 
.EVEN 

/ / 


.ASCIZ <CRLF>iCANNOT RECOVER THE BAD SECTOR FILES ON THIS DEVICES 

.asciz a=a 

.ASCIZ SALLa<CRLF> 

.asciz a ? a 
.Asciz a. a 

.ASCII <CRLF>aTO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DJSKa 
.ASCII <CRLF>aDURJNG ERROR FREE OPERATION. THIS PROGRAM SHOULD BE8 
.ASCII <CRLF>aBE HALTED BY TYPING A (*C) CONTROL C. AS A RESULT. 8 
.ASCII <CRLF>aTHE PROGRAM WILL BE HALTED WHEN THE DRIVE UNDER TESTS 
.ASCII <CRLF>aHAS COMPLETED TESTING. a 
.ASCII <CRLF> 

.ASCIZ <CRLF>aTYPE HELP TEXT (L) N ? a 
.ASCIZ <CRLF>aRMCS1=a 

.ASCIZ a LIMITS - L0= 160000. HI= 17XXXXa<CRLF> 

ASCIZ MNVEC S 8 

.'ASCIZ a LIMITS - LO* 0, HI= 1000a<CRLF><LF> 

.ASCII <CRLF>aTYPE ‘•A** TO TEST ALL DRIVES. OR TYPE DRIVE NUMBERCSia 
.ASCIZ <CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN. a 
.ASCII <CRLF> 

.ASCIZ a 7ILLE6AL INPUTa<CRLF> 

.ASCIZ <CRLF>/DRIVE(S) : / 

.ASCIZ /DRIVE/ 

.ASCIZ <CRLF>/UNIT STATUS:/ 

.ASCIZ /RM80/ 

.ASCIZ / NOT AN RM80/ 

.ASCIZ / LOAD DEVICE/ 

.ASCIZ / NOT PRESENT/ 

.ASCIZ / NOT AVAILABLE/ 

.ASCIZ / OFFLINE/ 

.ASCIZ / ONLINE/ 

.ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 

.ASCIZ /NONE/ 


UlfM O 'O oa ^ O ^ Oiru O 'Ow ^ o ^ 09 O ooa ->40^ O MD oe ^ 
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H 




SEO 0265 


1 


067244 

067244 020000 


.S8TTL FUNCTION CODE TABLE 

;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
;EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 

; ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTCD. OTHERWISE, 
;BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
.NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
; IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 

; WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 

; OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

; IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

; WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
;THE WRITE ERRORS WHICH ARE ENABLED ARE 'VLE". *WCF", "DPE", ’UPE". 

; IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

; AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 

; COMMAND. THE ERRORS ENABLED BY THIS BIT ARE "TRE". "DLT", ’ NEM’ ', 
;'MXF", •UBT”, AND "AOE". 

; BIT 08 IS NOT USED. 

; HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
.•HEADER ERRORS INCLUDE "HCRC". 'HCE”, 'TER**, A (ID ’BSE". 

; ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
.•COMMAND. THESE ERRORS INCLUDE **DPE". *DCIC". AND "ECH". 

; BIT 05 IS NOT USED. 

; BIT 04 IS NOT USED. 

; BIT 03 IS NOT USED. 

; BIT 02 IS NOT USED. 

; BIT 01 IS NOT USED. 

; ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 

FNCDTB: .-FUNCTION CODE TABLE 

.WORD OPI ;NOP 
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FUNCTION CODE TABLE 


58 

067246 

130001 

.WORD 

OPI !ATA!ILF ! IVC 

ILLEGAL FUNCTION (2) 

59 

067250 

132000 

.WORD 

ATAJOPI !IVC!IAE 

SEEK 

60 

067252 

130000 

.WORD 

ATA!OPI!IVC 

RECALIBRATE 

61 

067254 

020000 

.WORD 

OPI 

DRIVE CLEAR 

62 

067256 

030000 

.WORD 

OPI .'JVC 

RELEASE 

63 

067260 

130000 

.WORD 

OPI.'ATA.'IVC 

OFFSET 

64 

067262 

130000 

.WORD 

OPI ! ATA! IVC 

RETURN TO CENTERLINE 

65 

067264 

020000 

.WORD 

OPI 

READ IN PRESET 

66 

067266 

020000 

.WORD 

OPI 

PACK ACKNOWLEDGE 

67 

067270 

130001 

.WORD 

OPI!ATA!ILF!IVC 

ILLEGAL FUNCTION (24) 

68 

067272 

130001 

.WORD 

OPI ! ATA .'ILF ! IVC 

ILLEGAL FUNCTION (26) 

69 

067274 

132000 

.WORD 

ATA! OPI ! I VC! I AE 

SEARCH 

70 

067276 

130001 

.WORD 

OPI !ATA! ILF IVC 

ILLEGAL FUNCTION (32) 

71 

067300 

130001 

.WORD 

OPI f ATA ! ILF ! IVC 

ILLEGAL FUNCTION (34) 

72 

067302 

130001 

.WORD 

OPI.'ATA.'ILF.'IVC 

ILLEGAL FUNCTION (36) 

73 

067304 

130001 

.WORD 

OPI !ATA!ILF ;IVC 

ILLEGAL FUNCTION (40) 

74 

067306 

130001 

.WORD 

OPI .'ATA* ILF HVC 

ILLEGAL FUNCTION (42) 

75 

067310 

130001 

.WORD 

OPI ! ATA! ILF I IVC 

ILLEGAL FUNCTION (44) 

76 

067312 

130001 

.WORD 

OPI ! ATA i ILF !IVC 

ILLEGAL FUNCTION (46) 

77 

067314 

073300 

.WORD 

WCE ! OPI i I VC ! 1 AE ! AOE ! HCE ! ECH 

WRITE CHECK DATA 

78 

067316 

073300 

.WORD 

WCE OPI ! I VC ! I AE ! AOE ! HCE ! ECH 

WRITE CHECK HEADER AND DATA 

79 

067320 

130001 

.WORD 

OPI.'ATA.'ILF.'IVC 

ILLEGAL FUNCTION (54) 

80 

067322 

130001 

.WORD 

OPI .'ATA! ILF .'IVC 

ILLEGAL FUNCTION (56) 

81 

067324 

037200 

.WORD 

OPI .' I VC ! WLE .' I AE ! AOE ! HCE 

WRITE DATA 

82 

067326 

037000 

.WORD 

OPI.'IVC.'WLE.'IAE'AOE 

WRITE HEADER AND DATA 

83 

067330 

130001 

.WORD 

OPI !ATA! ILF • IVC 

ILLEGAL FUNCTION (64) 

84 

067332 

130001 

.WORD 

OPIJATA.'ILF.'IVC 

ILLEGAL FUNCTION (66) 

85 

067334 

033300 

.WORD 

OPI .'IVC! IAE ! AOE ! HCE ! ECH 

READ DATA 

86 

C57336 

033300 

.WORD 

OPI !IVC.'IAE!AO£!HCE!ECH 

READ HEADER AND DATA 

87 

067340 

130001 

.WORD 

OPI ! ATA ! ILF ! IVC 

ILLEGAL FUNCTION (74) 

88 

067342 

130001 

.WORD 

OPI .'ATA! ILF! IVC 

ILLEGAL FUNCTION (76) 


JL ^ 
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ATTENTION (ATA) TABLE 

1 .S8TTL ATTENTION (ATA) TABLE 


2 

3 067344 

001 

ATNTBL: .BYTE 

1 . 

4 067345 

002 

.BYTE 

2. 

5 067346 

004 

.BYTE 

4. 

6 067347 

010 

.BYTE 

8. 

7 067350 

020 

.BYTE 

16. 

8 067351 

040 

.BYTE 

32. 

9 067352 

100 

.BYTE 

64. 

10 067353 

200 

•8YTE 

128 
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DATA PATTERN TABLE 


3 067354 

4 067354 

5 067354 

6 067356 

7 067360 

8 067362 

9 067364 

10 067366 

11 067370 

12 067372 

13 067374 

14 067376 

15 067400 

16 067402 

17 067404 

18 067406 

19 067410 

20 067412 

21 067414 

22 067416 

23 067420 

24 067422 

25 067424 

26 067426 

27 067430 

28 067432 

29 067434 

30 067436 

31 067440 

32 067442 

33 067444 

34 067446 

35 067450 

36 067452 

37 067454 

38 067456 

39 067460 

40 067462 

41 067464 

42 067466 

43 067470 

44 067472 

45 067474 

46 067476 

47 067500 

48 067502 

49 067504 

50 067506 

51 067510 

52 067512 

53 067514 

54 067516 

55 067520 

56 067522 

57 067524 


000000 
000001 
000003 
000007 
000017 
000037 
000077 
000177 
000377 
000777 
001777 
003777 
007777 
017777 
037777 
0 77777 
177777 
177777 
077777 
037777 
017777 
007777 
003777 
001777 
000777 
000377 
000177 
000077 
000037 
000017 
000007 
000003 
000001 
000000 
000000 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
100000 
040000 


.S8TTL DATA PATTERN TABLE 


RGDTPT: 

MIXED: 


ONES: 


ZEROS: 


.WORD 

0 . 

.WORD 

1 . 

.WORD 

3. 

.WORD 

7. 

.WORD 

15. 

.WORD 

31. 

.WORD 

63. 

.WORD 

127. 

.WORD 

255. 

.WORD 

511. 

.WORD 

1023. 

.WORD 

2047. 

.WORD 

4095. 

.WORD 

8191. 

.WORD 

16383. 

.WORD 

32767. 

.WORD 

65535. 

.WORD 

65535. 

.WORD 

32767. 

.WORD 

16383. 

.WORD 

8191. 

.WORD 

4095. 

.WORD 

2047. 

.WORD 

1023. 

.WORD 

511. 

.WORD 

255. 

.WORD 

127. 

.WORD 

63. 

.WORD 

31. 

.WORD 

15. 

.WORD 

7. 

.WORD 

3. 

.WORD 

1 . 

.WORD 

0 . 

.WORD 

0 . 

.WORD 

1 . 

.WORD 

2. 

.WORD 

4. 

.WOPO 

8. 

.WORD 

16. 

.WORD 

32. 

.WORD 

64. 

.WORD 

128. 

.WORD 

256. 

.WORD 

512. 

.WORD 

1024. 

.WORD 

2048. 

.WORD 

4096. 

.WORD 

8192. 

.WORD 

16384. 

.WORD 

32768. 

.WORD 

32768 

.WORD 

16384 


L 


SEO 0268 
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DATA PATTERN TABLE 


L 


5 


SEC 


58 067526 

020000 

.WORD 

8192. 

59 067530 

010000 

.WORD 

4096. 

60 067532 

004000 

.WORD 

2048. 

61 067534 

002000 

.WORD 

1024. 

62 067536 

001000 

.WORD 

512. 

63 067540 

000400 

.WORD 

256. 

64 067542 

000200 

.WORD 

128. 

65 067544 

000100 

.WORD 

64. 

66 067546 

000040 

.WORD 

32. 

67 067550 

000020 

.WORD 

16. 

68 067552 

000010 

.WORD 

8. 

69 067554 

000004 

.WORD 

4. 

70 067556 

000002 

.WORD 

2. 

71 067560 

000001 

.WORD 

1 . 

72 067562 

000000 

.WORD 

0 . 

73 067564 

177777 

.WORD 

65535. 

74 067566 

177776 

.WORD 

65534. 

75 067570 

177774 

.WORD 

65532. 

76 067572 

177770 

.WORD 

65528. 

77 067574 

177760 

.WORD 

65520. 

78 067576 

177740 

.WORD 

65504. 

79 067600 

177700 

.WORD 

65472. 

80 067602 

177600 

.WORD 

65408. 

81 067604 

177400 

.WORD 

65280. 

82 067606 

177000 

.WORD 

65024. 

83 067610 

176000 

.WORD 

64512. 

84 067612 

174000 

.WORD 

63488. 

85 067614 

170000 

.WORD 

61440. 

86 067616 

160000 

.WORD 

57344. 

87 067620 

140000 

.WORD 

49152. 

88 067622 

100000 

.WORD 

32768. 

89 067624 

000000 

.WORD 

0 . 

90 067626 

000000 

.WORD 

0 . 

91 067630 

100000 

.WORD 

32768. 

92 067632 

140000 

.WORD 

49152. 

93 067634 

160000 

.WORD 

57344. 

94 067636 

170000 

.WORD 

61440. 

95 067640 

174000 

.WORD 

63488. 

96 067642 

176000 

.WORD 

64512. 

97 067644 

177000 

.WORD 

65024. 

98 067646 

177400 

.WORD 

65280. 

99 067650 

177600 

.WORD 

65408. 

100 067652 

177700 

.WORD 

65472. 

101 067654 

177740 

.WORD 

65504. 

10 2 067656 

177760 

.WORD 

65520. 

103 067660 

177770 

.WORD 

65528. 

104 067662 

177774 

.WORD 

65532. 

105 067664 

177776 

.WORD 

65534. 

106 067666 

177777 

.WORD 

65535. 

107 067670 

125252 

EARLY: .WORD 

43690. 

108 067672 

152525 

.WORD 

43690. /2 

109 067674 

125252 

.WORD 

43690. 

110 067676 

177777 

.WORD 

65535. 

111 067700 

177776 

.WORD 

65534. 

112 067702 

177775 

.WORD 

65533. 

113 067704 

177773 

.WORD 

65531 . 

114 067706 

177767 

.WORD 

65527. 



M 5 


S£Q 0270 
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DATA PATTERN TABLE 


115 067710 

177757 

.WORD 

65519. 

116 067712 

177737 

.WORD 

65503. 

117 067714 

177677 

.WORD 

65471 . 

118 067716 

177577 

.WORD 

65407 . 

119 067720 

177377 

.WORD 

65279. 

120 067722 

176777 

.WORD 

65023. 

121 067724 

175777 

.WORD 

6451 1 . 

122 067726 

173777 

.WORD 

6348 7. 

123 067730 

167777 

.WORD 

61439. 

124 067732 

157777 

.WORD 

57343. 

125 067734 

137777 

.WORD 

49151. 

126 067736 

077777 

.WORD 

32767. 

127 067740 

077777 

.WORD 

32767. 

128 067742 

137777 

.WORD 

49151. 

129 067744 

157777 

.WORD 

57343. 

130 067746 

167777 

.WORD 

61439. 

131 067750 

173777 

.WORD 

63487 . 

132 067752 

175777 

.WORD 

64511 . 

133 067754 

176777 

.WORD 

65023. 

134 067756 

177377 

.WORD 

65279. 

135 C67760 

177577 

.WORD 

65407. 

136 067762 

177677 

.WORD 

65471 . 

137 067764 

177737 

.WORD 

65503. 

138 067766 

177757 

.WORD 

65519. 

139 067770 

177767 

.WORD 

65527. 

140 067772 

177773 

.WORD 

65531 . 

141 067774 

177775 

.WORD 

65533. 

142 067776 

177776 

.WORD 

65534 . 

143 070000 

177777 

.WORD 

65535. 

144 070002 


ENRGDT: 
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ERROR MESSAGE TABLE 


N 5 


SEQ 0271 


.SBTTL ERROR MESSAGE TABLE 


3 070002 

4 070006 

5 070014 

6 070022 

7 070030 

8 070036 

9 070044 

10 070052 

11 070056 

12 070062 

13 070070 

14 07010? 

15 070110 

16 070116 

17 070126 

18 070136 

19 070146 

20 070156 

21 070166 

22 070176 

23 070206 

24 070216 

25 070226 

26 070236 

27 070246 

28 070256 

29 070266 

30 070276 

31 070306 

32 070316 

33 070326 

34 070336 

35 070344 

36 070354 

37 070366 

38 070376 

39 070406 

40 070416 

41 070426 

42 070434 

43 070444 

44 07C456 

45 070474 

46 070512 

47 070522 

48 070534 

49 070552 

50 070562 

51 070600 

52 070620 

53 070634 

54 070644 

55 070664 

56 070704 

57 070716 


074442 

074511 

074511 

074634 

074634 

101427 

077425 

074731 

074776 

075040 

075112 

075206 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

075040 

076743 

077131 

100722 

076245 

077170 

077216 

077244 

076675 

075112 

075040 

076245 

076245 

076274 

100657 

076323 

101427 

076446 

077052 

100610 

102627 

101015 

076351 

101366 

101366 


000000 

074526 

074571 

074664 

074776 

076657 

101454 

000000 

000000 

075051 

075123 

076657 

075271 

075314 

075330 

075356 

075405 

075422 

075464 

075513 

075542 

075570 

075641 

075670 

075717 

075745 

075774 

076022 

076051 

076100 

076153 

075246 

100631 

100732 

076363 

076363 

076363 

076363 

076657 

075134 

076216 

076363 

076363 

076363 

100674 

077065 

077075 

077013 

076446 

077013 

102652 

101057 

102054 

077321 

077321 


000000 

000000 

000000 

000000 

000000 

000000 


OOOOQO 

075134 


075443 

075454 

075454 

075443 

075443 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

075454 

000000 

077137 

077065 

077137 

077137 

077137 

077137 

000000 

076631 

075454 

077013 

077013 

077013 

076363 

077013 

077013 

077625 

077013 

077625 

075246 

077040 

102235 

077065 

077065 


EMT1 : 
EMT2: 
EMT3: 
EMT4: 
EMT5: 
EMT6: 
EMT7: 
EMTIO 
EMT11 
EMT12 
EMT13 
EMT14 
EMT15 
EMT16 
EMT17 
EMT20 
EMT21 
EMT22 
EMT23 
EMT24 
EMT25 
EMT26 
EMT27 
EMT30 
EMT31 
EMT32 
EMT33 
EMT34 
EMT35 
EMT36 
EMT37 
EMT40 
EMT41 
EMT42 
EMT43 
EMT44 
EMT45 
EMT46 
EMT47 
EMT50 
EMT51 
EMT52 
EMT53 
EMT54 
EMT55 
EMT56 
EMT57 
EMT60 
EMT61 
EMT62 
EMT63 
EMT64 
EMT65 
EMT66 
EMT67 


EMS1.0 

EMS2,EMS3,0 

EMS2.EMS4.0 

EMS5.EMS6.0 

EMS5.EMS10.0 

EMS167,ERS64,0 

EMS110.EASl70,0 

EMS7.0 

EMS10,0 

EMS11 ,ERS12,0 

EMS13,EMS14,EMS15,EMS16,0 

EMS17,EMS64,0 

EMS11 ,EMS21 ,0 

EMS11 ,EMS22.EMS27,0 

EMS11 # EMS23,EMS30,0 

EMS11 ,EMS24,EMSS0,0 

EMS11 ,EMS25,EMS27,0 

EMS11 ,EMS26,EMS27,0 

EMS1 1 ,EMS31 ,EMS30,0 

EMS11 ,EMS32,EMS30,0 

EMS 1 1 , EMS33 , EMS30 , 0 

EMS 1 1 , EMS34 , EMS30 , 0 

EMS11 ,EMS35,EMS30,0 

EMS11 ,EMS36,EMS30,0 

EMS11 ,EMS37,EMS30,0 

EMS 1 1 , EMS40 , EMS30 , 0 

EMS 11, EMS41 , EMS30 , 0 

EMS 1 1 , EMS42 , EMS30 # Q 

EMS11 ,EM$43,EMS30,0 

EMS1 1 # EMS44 , EMS30 , 0 

EMS11 ,EMS45,EMS30,0 

EMS66.EMS20.0 

EMS75,EMS141 1 EMS76-0 

EMS144,EMS145,EMS72,EMS76,0 

EMS47 « EMS53 , EMS76 « 0 

EMS77.EMS53.EMS76.0 

EMS100 # EMS53,EMS76,0 

EMS101 ,EMS53,EMS76 # 0 

EMS65,EMS64,0 

EMS13,EMS15,EMS63,0 

EMS 1 1 # EMS46 , EMS30 . EMS67.0 

EMS47,EMS53,EMS67,EMS115,EMS140,EMS141,0 

EMS47,EMS53.EMS67,EMS115,EMS141,EMS164.0 

EMS50.EMS53.EMS67.Q 

EMS142,EMS143.EMS53,EMS67,0 

EMS51 A tMS72 4 EMS67 -EMS1 15, EMS50 , EMS70 , 0 

EMS167-EMS73,EMS67.0 „ 

EMS56jMS67.EMS115,EMS150.EMS152,EMS70,0 

EMS71 . EMS56.EMS67. EMS 1 1 5*EMS 1 50 , EMS1 52 . EMS72 . 0 

EMS146,EMS67 f EMS115,EMS47.EMS70,0 

EMS225,EMS226,EMS20,0 

EMS150,EMS152.EMS70,EMS115.EMS56.EMS73 1 EMS67 X 0 
EMS52 . iMS205 - IMS21 4 , EMS206 , EMS1 1 5 , EMS51 , EMS72 ,0 
EMS16$,EMS10S,EMS72,EMS124,0 
EMS165,EMS103,EMS72,EMS171 .0 
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6 6 


SEO 0272 


58 070730 076216 075246 101261 EMT70: .WORD EMS46.EMS20.EMS163.0 

59 070740 077052 077244 101261 EMT71 : .WORD EMS71 .EMS101 .EMS163.0 

60 070750 076245 077065 101261 EMT72: .WORD EMS47.EMS72.EMS163.EMS1 15, EMS140.EMS141.0 

61 070766 076245 077065 101261 EMT73: .WORD EMS47.EMS72.EMS163.EMS115.EMS141 .EMS72.0 

62 071004 076446 076363 101261 EMT74: .WORD EMS56.EMS53.EMS163.0 

63 071014 077052 076446 101261 EMT75: .WORD EMS71 .EMS56.EMS163.EMS115.EMS150.EMS152.EMS72.0 

64 071034 076274 076363 101261 EMT76: .WORD EMS50.EMS53.EMS163.0 

65 071044 100657 100674 076363 EMT77: .WORD EMS142.EHS143.EMS53.EMS163.0 

66 071056 077131 100631 101261 EMT100: .WORD EMS75.EMS141 .EMS163.EMS115.EMS47.EMS70.0 

67 071074 077131 101015 101261 EMT101: .WORD EMS75.EMS150.EMS163.EMS115.EMS56.EMS73.0 

68 07111? 101427 077075 101261 EMT102: .WORD EMS1 67, EMS73. EMS 163.0 

69 071122 V1000 101033 077112 EMT103:.WORD EMS147.EMS151.EMS74.EMS163.0 

70 071 1 34 07 323 077112 101261 EMT104: .WORD EMS51 .EHS74.EMS163.EMS1 15, EMS50.EMS70.0 

71 071 _ 1C 366 077216 101261 EMT105: .WORD EMS165.EMS100.EMS163.0 

72 071162 101366 077170 101261 EMT106: .WORD EMS165.EMS77.EMS163.0 , , 

73 071172 100722 100732 076363 EMT107: .WORD EMS144,EMS145,EMS53.EMS163.EMS115.EMS143,EMS70.0 

74 071212 077425 077465 077630 EMT110: .WORD EMS1 10,EMS112,EM$116,EMS111 ,0 

75 071224 077551 074571 000000 EMT111: .WORD EMS113.EMS4.0 

76 071232 077551 074526 000000 EMT112: .WORD EMS113.EMS3.0 

77 071240 077425 077625 077630 EMT113: .WORD EM$110,EMS115,EMS116,EMS117,EMS114,0 

78 071254 000000 EMT114: .WORD 

79 071256 077702 100342 100366 EMT115: .WORD EMS121 .EMS132.EMS133.0 

80 071266 077745 100342 100366 EMT116: .WORD EMS122.EMS132.EMS133.0 

81 071276 100002 100342 100366 EMT117: .WORD EMS123.EMS132.EMS133.0 

82 071306 100045 100342 100366 EMT120: .WORD EMS124.EMS132.EMS133.0 

83 071316 100077 100342 100366 EMT121: .WORD EMS125.EMS132.EMS133.0 

84 071326 100142 100342 100366 EMT122: .WORD EMS126.EMS132.EMS133.0 

85 071336 100553 100342 100366 EMT123: .WORD EMS137.EMS132.EMS133.0 

86 071346 100244 100342 100366 EMT124: .WORD EMS130.EMS132.EMS133.0 

87 071356 100302 100342 100366 EMT125.-.W0RD EMS131 ,EMSl32,EMSl3i,0 

88 071366 077702 100342 100411 EMT126: .WORD EMS121.EMS132.EMS134.EMS123.0 

89 071400 077745 100342 100411 EMT127: .WORD EMS122,EMS132,EMS134,EMS123,0 

90 071412 100002 100342 100411 EMT130: .WORD EMS123.EMS132.EMS134.EMS123.0 

91 071424 100045 100342 100411 EMT131: .WORD EMS124.EMS132.EMS134.EMS123.0 

92 071436 100077 100342 100411 EMT132: .WORD EMS125,EMS132,EMS134,EMS123,0 

93 071450 100142 100342 100411 EMT133: .WORD EMS126.EMS132.EMS134.EMS123.0 

94 071462 100553 100342 100411 EMT134: .WORD EMS137.EMS132.EMS134.EMS123.0 

95 071474 100244 100342 100411 EMT135: .WORD EMS130.EMS132.EMS134.EMS123.0 

96 071506 100302 100342 100411 EMT136: .WORD EMS131 .EMS132.EMS134.EMS123.0 

97 071520 077702 100342 100453 EMT 137: .WORD EMS121 ,EMS1 32. EMS 135,0 

98 071530 100002 100342 100453 EMT140: .WORD EMS123.EMS132.EMS135.0 

99 071540 077702 100342 100526 EMT141: .WORD EMS121 .EMS132.EMS136.0 

100 071550 100553 100342 100526 EMT142: .WORD EMS137.EMS132.EMS136.0 

101 071560 100045 100342 100526 EMT143: .WORD EMS124.EMS132.EMS136.0 

102 071570 100077 100342 100526 EMT144: .WORD EMS125.EMS132.EMS136.0 

103 071600 100142 100342 100526 EMT145: .WORD EMS126.EMS132.EMS136.0 

104 C71610 100302 100342 100526 EMT146: .WORD EMS131 .EMS132.EMS136.0 

105 071620 101503 100342 100526 EMT147: .WORD EMS171 .EMS132.EMS136.0 

106 071630 100244 100342 100526 EMT150: .WORD EMS130.EMS132.EMS136.0 

107 071640 100610 077625 100631 EMT151: .WORD EMS140.EMS115.EMS141 .EMS70.0 

108 071652 1 00657 077625 1 00674 EMT152.-.WORD EMS142.EMS115.EMS143.EMS72.0 

109 071664 100722 100732 100761 EMT153: .WORD EMSU4,EMS145,EMS146,EMS115,EMS143,EMS72.0 

110 071702 100722 100732 075246 EMT154.-.WORD EMS1 ' 4,EMS145,EMS20.EMS115,EMS143,EMS70,0 

111 071720 101015 101057 101125 EMT155: .WORD EMS150,EM$152.EMS154,EMS153,0 

112 071732 101000 101033 101125 EMT156: .WORD EMS147.EMS151 .EMS154.EMS155.0 

113 071744 101000 101033 101161 EMT157: .WORD EMS147.EMS151 .EMS156.EMS157.0 

114 071756 101231 101161 101214 EMT160: .WORD EMS161 ,EMS1 56. EMS 160,0 
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C 6 


SEQ 0273 


115 071766 

116 072000 

117 072012 

118 072022 

119 072030 

120 072036 

121 072044 

122 072052 

123 072064 

124 072074 

125 072104 

126 072114 

127 072126 

128 072134 

129 072142 

130 072144 

131 072156 

132 072170 

133 072202 

134 072214 

135 072232 

136 072242 

137 072252 

138 072264 

139 072272 

140 072306 

141 072322 

142 072332 

143 072352 

144 072364 

145 072374 

146 072404 

147 072414 

148 072424 

149 072434 

150 072444 

151 072460 

152 072500 

153 072510 

154 072524 

155 072526 

156 072530 

157 072532 

158 072534 

159 072536 

160 072540 

161 072542 

162 072544 

163 072546 

164 072550 

165 072552 

166 072554 

167 072556 

168 072560 

169 072570 

170 072602 

171 072616 


075405 

075422 

076245 

076245 

076446 

076216 

102555 

102013 

101427 

101427 

101503 

101503 

077551 

101700 

000000 

102013 

102013 

102013 

102013 

101015 

076274 

077330 

077131 

077131 

076323 

100657 

076274 

076351 

076351 

076446 

076216 

075464 

076245 

076351 

076351 

076351 

102627 

075040 

102627 

000000 

000000 

000000 

OOOCOO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

101427 

101427 

101427 

102167 


075443 

075443 

101261 

075246 

075246 

075246 

075246 

100631 

101125 

101125 

100342 

100342 

101656 

101715 

076323 

102026 

076274 

100674 

077112 

077321 

077075 

100631 

101015 

077065 

076363 

077321 

102054 

077660 

075454 

075454 

075454 

075454 

077660 

077660 

077660 

102701 

102712 

102652 


101161 

101161 

100610 

000000 

000000 

000000 

000000 

075454 

101177 

101141 

100366 

100411 

000000 

000000 

075454 

075454 

075454 

075454 

101763 

077065 

101763 

077625 

000000 

077625 

077625 

076363 

101402 

076446 

076657 

076657 

076657 

076657 

077170 

076631 

102627 

102712 

075454 

077625 


100342 

100342 

102151 

102212 


102113 

102140 

102140 

000000 


EMT161: 
EMT162: 
EMT163: 
EMT164: 
EMT165: 
EMT166: 
EMT167: 
EMT170: 
EMT171: 
EMT1 72: 
EMT173: 
EMT174: 
EMT175: 
EMT176: 
EMT177: 
EMT200: 
EMT201 : 
EMT202: 
EMT203: 
EMT204: 
EMT205: 
EMT206: 
EMT207: 
EMT210: 
EMT211: 
EMT212: 
EMT213: 
EMT214: 
EMT215: 
EMT216: 
EMT217: 
EMT220: 
EMT221 : 
EMT222: 
EMT223: 
EMT224: 
EMT225: 
EMT226: 
EMT227: 
EMT230: 
EMT231 : 
EMT232: 
EMT233: 
EMT234: 
EMT235: 
EMT236: 
EMT237: 
EMT240: 
EMT241 : 
EMT242: 
EMT243: 
EMT244: 
EMT245: 
EMT246: 
EMT247: 
EMT250: 
EMT251 : 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.wt*;: 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


EMS25 , EMS27 . EMS 1 56 . EMS 1 60 . 0 

EMS26, EMS27 4 EMS 1 56 . E AS 1 60 . 0 

EMS47.EMS163.EMS140.0 

EMS47,EMS20.0 

EMS56,EMS20,0 

EMS46.EMS20.0 

EMS224,EMS20.0 

EMS203.EMS141 ,EMS30 4 EMS 202.0 

EMS167.EMS154,EMS157.0 

EMS167,EMS154,EMS155,0 

EMS171,EMS132,EMS133.0 

EMS171 ,EM$132,EMS134.EMS123,0 

EMS113,EMS177,0 

EMS200,EMS201.0 

EMS203,EMS51 . EMS30.EMS202.0 

EMS203 , EMS204 , EHS30 . EMS202 . 0 

EMS203,EMS50 4 EMS30.EMS202.6 

EMS203,EM$143,EMS30,EMS202,0 

EMS1 50 , EMS74 . EMS202 . E AS 1 1 5 , E AS 1 52 , EMS72 . 0 

EMS50.EMS103,EMS72.0 

EMS104,EMS73.EMS202,0 

EMS75,EMS141,EMS115,EMS140.0 

EMS75,EMS1 50.0 

EMS51 .EMS72 4 EMS115,EMS50.EM$70 4 0 

EMS142,EMS53,EMS115.EMS143,EMS72.0 

EMS50.EHS103,EMS53,0 

EMS52 , EMS20S , EMS1 66 , EMS206 , EMS1 1 5 , EMS5 1 , EMS72 , 0 

EMS52,EMS117,EMS56.EMS163,0 

EMS56 , EMS30 , EMS64 . 6 

EMS46,EMS30,EMS64,0 

EMS31,EMS30,EMS64,0 

EMS47 , EMS30 , EMS64 4 0 

EMS52,EMS117,EMS77,0 

EMS52.EMS117,EMS63.0 

EMS52,EMS117 4 EMS225 4 EMS115.EMS226,0 

EMS225 ,EM$22?,EMS230, EMS1 1 5 ,EMS1 56.EMS231 .EMS57 . 0 

EMS1 1 . EMS23ILEMS30 . 0 

EMS225 , EMS226 , EMS 1 1 5 , EMS230 , EMS72 , 0 


EMS167,EMS132,EMS207.0 
EMS167,EMS132.EMS210,EMS125,0 
E MSI 67, EMS2 1 1 . EMS2 1 0 . EMS207 , EMS206 . 0 
EMS212.EMS213.0 
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0 6 


SEO 0274 


172 072624 

173 072632 

174 072650 

175 072660 

176 072670 

177 072700 

178 072712 

179 072724 

180 072744 

181 072754 

182 072764 

183 073004 

184 073024 

185 073036 

186 073054 

187 073070 

188 073106 

189 073124 

190 073142 

191 073160 

192 073172 

193 073206 

194 073224 

195 073244 

196 073266 

197 073300 

198 073312 

199 073324 

200 073336 

201 073346 

20 2 073366 

203 073400 

204 073412 

205 073424 

206 073444 

207 073456 

208 073470 

209 073502 

210 073512 

211 073522 

212 073532 

213 073540 

214 073550 

215 073562 

216 073574 

217 073612 

218 073624 

219 073634 

220 073646 

221 073660 

222 073676 

223 073714 

224 073734 

225 073744 

226 073754 

227 073766 

228 073774 


101366 

101000 

102013 

102H3 

102013 

075040 

076351 

076351 

077330 

076274 

076446 

077052 

100657 

076274 

076245 

076245 

077131 

076323 

076631 

077630 

076245 

076245 

076446 

077052 

101366 

101366 

101366 

076216 

076274 

076274 

100657 

077330 

077357 

100722 

076022 

075464 

077052 

076051 

076153 

076100 

077406 

075670 

101556 

101536 

075112 

101000 

076743 

075542 

075745 

076323 

077131 

077131 

076551 

077630 

075570 

076417 

076351 


102167 

101033 

077244 

101427 

077216 

076216 

077660 

102054 

077075 

076363 

076363 

076446 

100674 

100761 

076363 

076363 

100631 

077112 

076363 

076363 

076363 

076363 

076363 

076446 

077216 

077244 

077170 

075454 

076363 

100761 

100674 

077321 

077321 

100732 

077321 

077321 

075464 

077321 

077321 

077321 

075246 

077321 

075670 

07567C 

101573 

101033 

076363 

077321 

077321 

077112 

100631 

101015 

076564 

077660 

076363 

075570 

077660 


000000 

101161 

075454 

075454 

075454 

075454 

076446 

102357 

101763 

077272 

077272 

077272 

076363 

077625 

077272 

077272 

077272 

077272 

076523 

075774 

076523 

076523 

076523 

076363 

077321 

077321 

077321 

076657 

076523 

077625 

076363 

076363 

076363 

077321 

076363 

076363 

077321 

076523 

076523 

076523 

000000 

076523 

077321 

077321 

075134 

077112 

101601 

076363 

076363 

076523 

076523 

101057 

076613 

075570 

076375 

000000 

076446 


EMT252 
EMT253 
EMT254 
EMT255 
EMT256 
EMT257 
EMT260 
EMT261 
EMT262 
EMT263 
EMT264 
EMT265 
EMT266 
EMT267 
EMT270 
EMT271 
EMT 272 
EMT273 
EMT274 
EMT275 
EMT276 
EMT277 
EMT300 
EMT301 
EMT302 
EMT303 
EMT304 
EMT305 
EMT306 
EMT307 
EMT310 
EMT311 
EMT312 
EMT313 
EMT314 
EMT315 
EMT316 
EMT317 
EMT320 
EMT321 
EMT322 
EMT323 
EMT324 
EMT325 
EMT326 
EMT327 
EMT330 
EMT331 
EHT332 
EMT333 
EMT334 
EMT335 
EMT336 
EMT337 
cMT340 
EMT341 
EMT342 


.WORD EMS165,EMS212,0 

.WORD EMS147.EMS151 ,EMS156.EMS210,EMS26,EMS27,0 

.WORD EHS203,EnSl01.EMS30.0 

.WORD EMS203,EMS167,EMS30,0 

.WORD EMS203,EMS100,EMS30,0 

.WORD EMS1 1 . EMS46 .EM530 . EMS1 02.0 

.WORD EMS52 , EMS1 1 7, EMS56 ,EMS1 02 . 0 

. WORD EMS52 . EMS205 , EMS220 , EMS206 . EMS 1 1 5 , EMS5 1 , EMS72 , 0 

.WORD EMS 104, EMS73 , EMS202 .0 

.WORD EMS50,EMS53, EMS 102,0 

.WORD EMS56,EMS53.EMS102,EMS115,EMS150,EMS152.EMS70,0 

. WORD EMS71 . EMS56 . EMS1 02 .EMS 1 1 5 . EMS1 50, EMS1 52 , EMS72 , 0 

.WORD EMS142,EMS143,EMS53,EMS102,0 

.WORD EMS50 , EMS 1 46 , EMS1 1 5 , EMS52 , EMS1 1 7 , EMS46 , 0 

.WORD EMS47,EMS53,EMS102,EMS115,EMS140,0 

.WORD EMS47,EMS53.EMS102.EMS115.EMS141,EMS72,0 

. WORD EMS75 , EMS1 4 1 , EMS1 02 , EMS 1 1 5 , EMS4 7 , EMS73 . 0 

.WORD EMS5 1 , EMS74 , EMS 1 02 , EMS 1 1 5 , EMS50 , EMS70 , 0 

. WORD EMS63 , EMS53 , EMS” . EMS 1 1 5 , EMS4 1 , EMS1 46 , 0 

.WORD EMS116,EMS53,EMS41,EMS57,0 

. WORD EMS47 , EMS53 , EMS57 , EMS 1 1 5 , EMS1 40 , 0 

.WORD EMS47,EMS53,EMS57,EMS115,EMS141 ,EMS72.0 

. WORD EMS56 ,EMS53 , EMS57 , EMS 1 1 5 , EMS1 50 .EM31 52 , EMS70 , 0 

. WORD EMS71 . EMS56 .EMS53 . EMS57 , EMS 1 1 5 , EMS1 50 , EMS1 52 , EMS 72 , 0 

.WORD EMS1 65 , EMS1 00 , EMS 1 03 , EMS5 7 , 0 

.WORD EMS165 ,EMS101 ,EMS1 03,EMS57,0 

.WORD EMS165,EM$77,EMS103,EMS57.0 

.WORD EMS46,EMS30,EMS64,EMS57,0 

.WORD EMS50,EMS53,EMS57.0 

. WORD EMS50. EMS1 46.EMS 115, EMS52 , EMS1 1 7 , EMS46 , EMS57 ,0 

.WORD EMS142,EMS143,EMS53,EMS57,0 

.WORD EMS104,EMS103,EMS53,EMS57,0 

.WORD EMS1 05 , EMS1 03 , EMS 53, EMS57 , 0 

.WORD EMS144,EMS145,EMS103.EMS57.EMS115,EMS143,EMS70,0 

.WORD EMS42,EMS103,EMS53,EMS57.0 

.WORD EMS31,EM$103,EMS53,EMS57,0 

.WORD EMS71,EMS31,EMS103,EMS57,C 

.WORD EMS43,EMS103,EMS57,0 

.WORD EMS45,EMS103.EMS57,0 

.WORD EMS44,EMS103,EMS57,0 

.WORD EMS106,EMS20,0 

.WORD EMS36 . EMS1 03 , EMS57, 0 

.WORD EMS173,EMS36,EMS103,EMS57,0 

.WORD EMS172,EMS34,EMS103,EMS57.0 

. WORD EMS1 3 , EMS1 74 . EMS 1 5 . EMS3 5 , EMS53 , EMS1 75 . 0 

.WORD EMS147,EMS151,EMS74.EMS175,0 

.WORD EMS66,EMS53.EMS1 75,0 

.WORD EMS33,EMS103,EMS53,EMS175.0 

.WORD EMS40,EMS103,EMS53,EMS57,0 

.WORD EMS51 ,EM$74.EMS57,EMS115.EMS50,EMS70.0 

.WORD EMS75,EMS141,EMS57.EMS115,EMS47.EMS73,0 

.WORD EMS75,EMS150,EMS152,EMS57.EMS115,EMS56,EMS73.0 

.WORD EMS60 . EMS61 . EMS62.0 

.WORD EMS116,EMS117,EMS34,0 

.WORD EMS34,EMS53,EMS54,EMS111,0 

.WORD EMS55,EMS34,0 

.WORD EMS52,EMS117,CMS56,EMS57,0 


CZRNFAO RM80 FCTNL PT3 MACRO V04.00 28- JAN-82 16:49:32 PAGE 53-4 
ERROR MESSAGE TABLE 


E 6 


SEQ 0275 


229 074006 076351 077660 076153 EMT343: .«ORD 

230 074020 076351 077660 076100 EMT344: .WORD 

231 074032 076351 077660 102377 EMT345: .WORD 

232 074042 077406 075246 077625 EMT346: .WORD 

233 074056 076351 102054 102447 EMT347: .WORD 

234 074070 077131 101015 077272 EMT350: .WORD 

235 074106 101427 077075 077272 EMT351: .WORD 

236 074116 102253 000000 EMT352: .WORD 

237 074122 102324 102013 102274 EMT353: .WORD 

238 074132 102377 075246 000000 EMT354: .WORD 


EMS52.ENS1 1 7.EN$45.EMS57 # 0 

ENS52,EN$117,EN$44 1 ENS57,0 

EMS52.ENS117.EMS221.0 

ENS 1 06 , EMS20 , EMS1 15 EMS223 . ENS 72,0 

ENS52 . ENS205 , ENS222 , EMS206 , 0 

ENS75 . ENS1 50 , ENS 1 02 « ENS 115. ENS56 , ENS 73 

ENS 16^ # ENS73, ENS 102,0 

ENS215.0 

ENS21 7 , EMS203 . ENS21 6 , 0 
ENS221 ,ENS20,0 




F 6 


SEQ 0276 
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10 


14 


074140 

074152 

103004 

103610 

103610 

103665 

103665 

104012 

EMT1: .WORD 

EHT2: .WORD 

074162 

074166 

103023 

103032 

000000 

000000 


EHT110: .WORD 
EHT111 : .WORD 

074172 

074176 

074210 

103051 

103100 

103126 

000000 

103610 

103610 

103665 

103665 

EHT114: .WORD 
EHT223: .WORD 
EHT256: .WORD 

074222 

074234 

074246 

103202 

103241 

103376 

103610 

103610 

103610 

103665 

103665 

103665 

EHT336: .WORD 
EHT337: .WORD 
EHT344: .WORD 

074260 

103534 

000000 


EHT353: .WORD 


EH1 ,ST5H1 ,STSH2,STSH4,0 
STSH1 ,STSH2,STSH4,0 

EH110.0 
EH111 ,0 

EH114.0 

EH223,STSH1 ,STSH2,STSH4,0 
EH256.STSH1 ,S t SH2,STSH4,0 

EH336.STSH1 ,STSH2.STSH4,0 
EH337,STSH1 ,STSH2,STSH4»0 
EH344,STSH1,STSH2,STSH4,0 

EH353.0 



6 6 
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6 
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13 


oo 

rufvj 

104050 

104144 

104144 

104162 

104162 

104214 

EDT1 : .WORD 

EDT2: .WORD 

074302 

074304 

104056 

104062 



EDT110: .WORD 
EDT111 : .WORD 

074306 

074310 

104070 

104100 

104144 

104162 

EDT114: .WORD 
EDT223: .WORD 

074320 

074330 

074340 

104110 

104122 

104122 

104144 

104144 

104144 

104162 

104162 

104162 

EDT336: .WORD 
EDT337: .WORD 
EDT344: .WORD 

074352 

104134 



EDT353: .WORD 


EDI ,STSD1 ,STSD2,STSD4 
STSD1 ,STSD2,STSD4 

ED1 1 0 
EDI 1 1 

ED1 14 

ED223,STSD1,STSD2,STSD4 

ED336,STSD1 ,51502, STSD4 
ED337,STSD1 ,STSD2,STSD4 
ED337,STSD1.STSD2.STSD4,0 

ED353 


SEO 0277 


H 6 



SEfl 0278 


I 

\ 


L 
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1 





.S8TTL ERROR MESSAGE STRINGS 

c 

3 

0744i,2 

127 

122 

117 

EMS1 : 

.ASCIZ 

aURONG UNIT SELECTED (RMCS2, BITS 0-2) a 

4 

074511 

104 

105 

126 

EMS2: 

.ASCIZ 

aDEVlCE WENT a 

5 

074526 

125 

116 

101 

EMS3: 

.ASCIZ 

aUNAVAILABLE "DVA" (RMCS1 . BIT 11) a 
aNONEXISTENT '*£0" (RMCS2. BIT 12) a 

6 

074571 

116 

117 

116 

EMS4: 

.ASCIZ 

7 

074634 

103 

117 

115 

EMS5: 

.ASCIZ 

aCOMMAND NOT COMPLETED, a 

8 

074664 

103 

117 

116 

EMS6: 

.ASCIZ 

aCONTROLLER NOT READY (RMCS1, BIT 7) a 
aDRIVE NOT READY 'DRY" (RMDS, BIT 7) a 

9 

074731 

104 

122 

111 

EMS7: 

.ASCIZ 

iO 

074776 

107 

117 

040 

EMS10 

.ASCIZ 

aGO NOT RESET "GO" (RMCS1 . BIT 0) a 

11 

075040 

111 

116 

126 

EMS11 

.ASCIZ 

aiNVALID a 

12 

075051 

106 

125 

116 

EMS12 

.ASCIZ 

af UNCTION CODE (RMCS1 , BITS 1-5) a 

13 

075112 

115 

101 

123 

EMS13 

.ASCIZ 

8MASS8US a 

14 

075123 

103 

117 

116 

EMS14 

.ASCIZ 

aCONTROL a 

15 

075134 

102 

125 

123 

EMS15 

.ASCIZ 

aeus PARITY error a 

16 

075156 

042 

115 

103 

EMS16 

.ASCIZ 

a'MCPE" (RMCS1. BIT 13) a 

17 

075206 

124 

122 

101 

EMS17 

.ASCIZ 

aTRANSFER ERROR (RMCS1, BIT 14) a 

18 

075246 

123 

110 

117 

EMS20 

.ASCIZ 

aSHOULD NOT BE SET a 

19 

075271 

127 

117 

122 

EMS21 

.ASCIZ 

aWORD COUNT (RMWC) a 

20 

075314 

102 

125 

123 

EMS22 

.ASCIZ 

aBUS CRMBA) a 

a"LBT" (RMDS. BIT 10) a 

a"AOE" (RHERi, BIT 09) a 

21 

075330 

042 

114 

102 

EMS23 

.ASCIZ 

22 

075356 

042 

101 

117 

EMS24 

.ASCIZ 

23 

075405 

104 

111 

123 

EMS25 

.ASCIZ 

8DJSK (RMDA) a 

24 

075422 

103 

131 

114 

EMS26 

.ASCIZ 

3CYLINDER CRMDC) a 

25 

075443 

101 

104 

104 

EMS27 

.ASCIZ 

aADDRESS a 

26 

075454 

123 

124 

101 

EMS30 

.ASCIZ 

asTATus a 

27 

075464 

042 

127 

114 

EMS31 

.ASCIZ 

a"ULE" (RMER1 , BIT 11) a 

28 

075513 

042 

125 

120 

EMS32 

.ASCIZ 

a‘W»E" (RNCS2, BIT 13) a 

29 

075542 

042 

127 

103 

EMS33 

.ASCIZ 

a'VCF" (RMER1 , BIT 5) a 

aURITE CHECK ERROR-'VCE" (RMCS2, BIT 14) a 

30 

075570 

127 

122 

111 

EMS34 

.ASCIZ 

31 

075641 

042 

115 

104 

EMS35 

.ASCIZ 

a'MDPE" (RMCS2, BIT 8) a 

32 

075670 

04 2 

104 

103 

EMS36 

.ASCIZ 

a'DCK" (RMER1, BIT 15) a 

33 

075717 

042 

105 

103 

EMS37 

.ASCIZ 

a'tCH" (RMER1, BIT 6) a 

34 

075745 

042 

104 

114 

EMS40 

.ASCIZ 

8'DLT" (RMCS2, BIT 15) a 

35 

075774 

042 

115 

130 

EMS41 

.ASCIZ 

a'HXF" (RHCS2, BIT 9) a 

36 

076022 

042 

104 

124 

EMS42 

.ASCIZ 

a’ DTE" (RHERI . BIT 12) a 
a'XCRC" (RHERI, BIT 8) a 
aHEADER COMPARE ERROR "HCE" (RHERI , BIT 7) a 

37 

076051 

042 

110 

103 

EMS43 

.ASCIZ 

38 

076100 

110 

105 

101 

EMS44 

.ASCIZ 

39 

076153 

106 

117 

122 

EMS45 

.ASCIZ 

aFORMAT ERROR 'TER" (RHERI, BIT 4) a 

40 

076216 

042 

HI 

101 

EMS46 

.ASCIZ 

a"IA£" (RHERI, BIT 10) a 

41 

076245 

042 

117 

120 

EMS47 

.ASCIZ 

a'DPI" (RHERI, BIT 13) a 

42 

076274 

042 

123 

113 

EMS50 

.ASCIZ 

a"SKI" (RHER2, BIT 14) a 

*3 

076323 

042 

120 

111 

EMS51 

.ASCIZ 

a "PI?" (RHDS, BIT 13) a 

44 

076351 

124 

110 

105 

EMS52 

.ASCIZ 

aTHE RM80 a 

45 

076363 

104 

105 

124 

EMS53 

.ASCIZ 

aDETECTED a 

46 

076375 

101 

124 

040 

EMS54 

.ASCIZ 

aAT AN UNEXPECTED a 

47 

076417 

111 

116 

103 

EMS55 

.ASCIZ 

aiNCORRECT DATA DURING a 

48 

076446 

111 

116 

126 

EMS56 

.ASCIZ 

aiNVALID COHHAND ERROR "I VC" (RHER2, BIT 12) 

49 

076523 

104 

125 

122 

EMS57 

.ASCIZ 

aDURING DATA TRANSFER a 

50 

076551 

104 

101 

124 

EMS60 

.ASCIZ 

3DATA READ a 

51 

076564 

104 

117 

105 

EMS61 

.ASCIZ 

aDOES NOT COHPARE WITH a 

52 

076613 

104 

101 

124 

EMS62 

.ASCIZ 

aDATA WRITTEN a 

53 

076631 

042 

120 

101 

EMS63 

•ASCIZ 

a"PAR" (RHERI, BIT 3) a 

54 

076657 

111 

123 

040 

EMS64 

.ASCIZ 

ais INCORRECT a , 

55 

076675 

103 

117 

115 

EMS65 

.ASCIZ 

aCOHPOSITE ERROR TRR (RHDS, BIT 14) a 
aDATA PARITY ERROR DPE (RFKR2, BIT 3) a 

56 

076743 

104 

101 

124 

EMS66 

.ASCIZ 

57 

077013 

104 

125 

122 

EMS67 

.ASCIZ 

aDURING SEEK COHHAND a 
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SEQ 0280 


58 077040 

111 

123 

040 

EMS70 

.ASCIZ 

59 077052 

105 

122 

122 

EMS71 

.ASCIZ 

60 07/065 

111 

123 

040 

ENS72 

.ASCIZ 

61 077075 

104 

111 

104 

ENS73 

.ASCIZ 

62 077112 

104 

111 

104 

ENS74 

.ASCIZ 

63 077131 

114 

117 

123 

EMS75 

.ASCIZ 

64 077137 

104 

125 

122 

EMS76 

.ASCIZ 

65 077170 

042 

122 

115 

EMS77 

.ASCIZ 

66 077216 

042 

111 

114 

ENS100: .ASCIZ 

67 077244 

04 2 

111 

114 

EMS101: .ASCIZ 

68 077272 

104 

125 

122 

EMS102: .ASCIZ 

69 077321 

105 

1 22 

122 

EMS103: .ASCIZ 

70 077330 

042 

114 

102 

EMS104: .ASCIZ 

71 077357 

042 

114 

123 

EMS105: .ASCIZ 

72 077406 

110 

105 

101 

EMS106: .ASCIZ 

73 077425 

102 

125 

123 

EMS110: .ASCIZ 

74 077454 

101 

104 

104 

EMS111 : .ASCIZ 

75 077465 

127 

110 

105 

EMS112: .ASCII 

76 077527 

101 

124 

040 


.ASCIZ 

77 077551 

124 

110 

105 

EMS113: .ASCIZ 

78 077601 

116 

117 

116 

EMS114: .ASCIZ 

79 077625 

015 

012 

000 

EMS115: .ASCIZ 

80 077630 

124 

110 

105 

EMS116: .ASCIZ 

81 077660 

106 

101 

111 

ENS117: .ASCIZ 

82 077702 




EMS120: 

83 077702 

103 

117 

116 

EMS121 : .ASCIZ 

84 077745 

102 

125 

123 

EMS122: .ASCIZ 

85 100002 

103 

117 

116 

EMS123: .ASCIZ 

86 100045 

105 

122 

122 

EMS124: .ASCIZ 

87 100077 

101 

124 

124 

EMS125: .ASCIZ 

88 100142 

115 

101 

111 

EMS126: .ASCIZ 

89 100205 

105 

103 

103 

EMS127: .ASCIZ 

90 100244 

105 

103 

103 

EMS130: .ASCIZ 

91 100302 

115 

101 

111 

EMS131: .ASCIZ 

92 100342 

116 

117 

124 

EMS132: .ASCIZ 

93 100366 

125 

116 

111 

EMS133: .ASCIZ 

94 100411 

103 

117 

116 

EMS134: .ASCIZ 

95 100453 

122 

110 

040 

EMS135: .ASCIZ 

96 100526 

104 

122 

111 

EMS136: .ASCIZ 

97 100553 

104 

122 

111 

EMS137: .ASCIZ 

98 100610 

115 

105 

104 

EMS140: .ASCIZ 

79 100631 

042 

115 

117 

EMS141: .ASCIZ 

100 100657 

104 

122 

111 

EMS142: .ASCIZ 

101 100674 

042 

104 

126 

EMS143: .ASCIZ 

102 100722 

125 

116 

123 

EMS144: .ASCIZ 

103 100732 

042 

125 

116 

EMS145: .ASCIZ 

104 100761 

123 

110 

117 

EMS146: .ASCIZ 

105 101000 

117 

106 

106 

EMS147: .ASCIZ 

106 101015 

126 

117 

114 

EMS150: .ASCIZ 

107 101033 

042 

117 

115 

EMS151 : .ASCIZ 

108 101057 

042 

126 

126 

EMS15J 

>: .ASCIZ 

109 101103 

120 

101 

103 

EMS153 

.ASCIZ 

110 101125 

116 

117 

124 

EMS154: .ASCIZ 

111 101141 

117 

106 

106 

EMS155: .ASCIZ 

112 101161 

116 

117 

124 

EMS156: .ASCIZ 

113 101177 

122 

124 

103 

EMS157: .ASCIZ 

114 101214 

122 

111 

120 

EMS160: .ASCIZ 


ais RESET a 
aERRONEOUS a 
ais set a 
aOlD NOT SET a 
aDID NOT RESET a 

aLOST a 

aOURING PACK ACK COMMAND a 
a’HMR" (RMER1 . BIT 2) a 
a^lLR" (RMER1 , BIT 1) a 
a' 'ILF” (RMER1 , BIT 0) a 
aDURING SEARCH COMMAND a 
aERROR a 
a’lSC" (RMER2 
a* isc" (rmerS 

aHEADER ERRORS 


BIT 10) 
BIT 11) 

a 


8BUS TIMEOUT (04 TRAP) a 
3ADDRESS a 

aUHEN READING/WRITING RH REGISTERS a 

3AT THE FOLLOWING a 

aTHE SELECTED DEVICE IS a 

BNONEXISTENT DEVICE a 

<CRXLF> 

aTHE MASSBUS CONTROLLER a 
aF AILED TO DETECT a 
;NOT USED 

aCONTROL STATUS REGISTER 1, RMCS1 , a 
aBUS ADDRESS REGISTER, RMBA, a 
aCONTROL STATUS REGISTER 2, RMCS2, a 
aERROR REGISTER 1, RMER1 , a 
aATTENTION SUMMARY REGISTER, RMAS, a 
aMAINTENANCE REGISTER #1, RMMR #1, a 
BECC POSITION REGISTER, RMEC1 , a 
aECC PATTERN REGISTER, RMEC2, a 
aMAINTENANCE REGISTER 2, RMMR2, a 
8N0T INITIALIZED BY a 
aUNIBUS INITIALIZE a 
aCONTROLLER CLEAR, I.E. BIT 5 OF a 
3RH CONTROLLER ERROR CLEAR (RMCS1, BIT 14) 
aDRIVE CLEAR COMMAND a 
a DRIVE STATUS REGISTER, RMDS a 
aMEDIUM OFF LINE a 
a*MOL“ (RMDS, BIT 12) a 
aDRIVE FAULT a 
a .^r, <RMER2# BIT 7) a 


a'Dvc 
aUNSAFE a 
a'UNS” (RNER1, 
8SH0ULD BE SET 
aOFFSET NODE a 
aVOLUME VALID a 
a"OM** (RMDS, PIT 0) 
a’VV (RMDS, BIT 6) 
BPACK ACK COMMAND a 
3N0T SET BY a 
aOFFSET COMMAND a 
aNOT RESET BY 9 
aRTC COMMAND a 
aRIP COMMAND a 


BIT 14) 

a 
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SEC 0281 


115 

101231 

117 

106 

106 

EMS161: .ASCI2 

BOFFSET REGISTER (RMOF) a 

116 

101261 




EMS162: 

;<UNUSED> 

117 

101261 

104 

125 

122 

EMS163: .ASCI2 

aDURING RECALIBRATE a 

118 

101305 

111 

123 

040 

EMS164: .ASCII 

aiS INTERMITTENT OR DRIVE DIDNT DROP ON a 

119 

101354 

103 

131 

114 

.ASC12 

aCYLINDER a 

120 

101366 

125 

116 

105 

EMS165: .ASCJ2 

aUNEXPECTED a 

121 

101402 

122 

105 

103 

EMS166: .ASCJ2 

aRECALIBRATE COMMAND a 
a*'ATA r * (RMDS, BIT15) a 

122 

101427 

042 

101 

124 

EMS167: .ASCI2 

123 

101454 

127 

110 

105 

EMS170: .ASCI2 

aUHEN READING REGISTER a 

124 

101503 

105 

122 

122 

EMS171: .ASCIZ 

8ERR0R REGISTER *2. RMER2, a 

125 

101536 

116 

117 

116 

EMS172: . ASCIZ 

aNONRECOVERABLE a 

126 

101556 

122 

105 

103 

EMS173: .ASCIZ 

aRECOVERABLE B 

127 

101573 

104 

101 

124 

EMS174: .ASCIZ 

aoATA a 

128 

101601 

104 

125 

122 

EMS175: .ASCIZ 

aDURING WRITE COMMAND a 

129 

101627 

042 

117 

120 

EMS176: .ASCIZ 

a'lDPE" (RMER2, BIT 13) a 

130 

101656 

111 

116 

040 

EMS177: .ASCIZ 

aiN WRITE PROTECT a 

131 

101700 

103 

101 

116 

EMS200: .ASCIZ 

a CAN NOT SET a 

132 

101715 

104 

111 

101 

EMS201: .ASCIZ 

aDI AGNOSTIC MODE 'DMD" (RMMR1 . BIT 0) a 

133 

101763 

104 

125 

122 

EMS202: .ASCIZ 

aDURING DIAGNOSTIC MODE a 

134 

102013 

111 

116 

103 

EMS203: .ASCIZ 

aiNCORRECT a 

135 

102026 

042 

127 

122 

EMS204: .ASCIZ 

a'URL" (RMDS, BIT 11) a 

136 

102054 

105 

130 

105 

EMS205 : .ASCIZ 

aEXECUTED a 

137 

102066 

127 

111 

124 

EMS206: .ASCIZ 

awiTH COMP ERROR SET a 

138 

102113 

042 

107 

117 

EMS207: .ASCIZ 

a’ *60" (RMCS1 , BIT 0) a 

139 

102140 

127 

122 

111 

EMS210: .ASCIZ 

awRiTiNG a 

140 

102151 

127 

101 

123 

EMS211: .ASCIZ 

aWAS RESET BY a 

141 

102167 

120 

122 

117 

EMS212: .ASCIZ 

aPROGRAM INTERRUPT a 

142 

102212 

127 

101 

123 

EMS213: .ASCIZ 

aWAS NOT GENERATED a 

143 

102235 

123 

105 

105 

EMS214: .ASCIZ 

aSEEK COMMAND a 

144 

102253 

120 

122 

117 

EMS215: .ASCIZ 

aPROGRAM TIMEOUT a 

145 

102274 

104 

125 

122 

EMS216: .ASCIZ 

aDURING LOOK AHEAD TEST a 

146 

102324 

1 4 

117 

117 

EMS217: .ASCIZ 

aLOOK AHEAD REGISTER, RMLA, a 

147 

102357 

123 

105 

101 

EMS220: .ASCIZ 

aSEARCH COMMAND a 

148 

102377 

102 

101 

104 

EMS221: .ASCIZ 

BBAD SECTOR ERROR 'BSE" (RMER2, BIT 15) a 

149 

102447 

101 

040 

104 

EMS222: .ASCIZ 

BA DATA TRANSFER COMMAND a 

3HEADER COMPARE INHIBIT 'HCI" (RMOF, BIT 10) a 
aNONEXISTENT MEMORY *NEM" (RMCS2, BIT 11) a 

150 

102500 

110 

105 

101 

EMS223: .ASCIZ 

151 

102555 

116 

117 

116 

EMS224: .ASCIZ 

152 

102627 

123 

113 

111 

EMS225: .ASCIZ 

aSKIP SECTOR ERROR a 

153 

102652 

042 

123 

123 

EMS226: .ASHZ 

a"SSE" (RMER2, BIT 05) a 

154 

102701 

111 

116 

110 

EMS227: .ASCIZ 

aiNHiBiT a 

155 

102712 

042 

123 

123 

EMS230: .ASCIZ 

a"SSEI" (RMOF, BIT 09) a 

156 

102741 

105 

116 

104 

EMS231: .ASCIZ 

BEND OF TRACK a 

157 

102757 

101 

106 

124 

EMS232: .ASCIZ 

BAFTER DATA TRANSFER a 
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1 

103004 

105 

130 

120 

EH1 : 

.ASCIZ 

8EXPCTD 

RECEVDa 



2 

103023 

102 

125 

123 

EH110: 

.ASCIZ 

aBUSADRa 




3 

103032 

040 

122 

115 

EM1 11 : 

.ASCIZ 

a RMCS2 

RMCSia 



** 

5 

103051 

122 

105 

103 

EH114: 

.ASCIZ 

aRECEVD 

SNGPRT 

DULPRT3 


6 

103100 

105 

130 

120 

EH223: 

.ASCIZ 

aEXPCTD 

RECEVD 

DA TAB 


7 

103126 

105 

130 

120 

EH256: 

.ASCII 

aEXPCTD 

RECEVD 

R6STRa<CRLF> 

8 

o 

103154 

123 

124 

101 


.ASCIZ 

aSTATUS 

STATUS 

INDEXa 


V 

10 

103202 

V 7 

104 

101 

EH336: 

.ASCIZ 

aGDADRS 

GDDATA 

BDADRS 

BDDATA3 

ii 

103241 

122 

115 

103 

EH337: 

.ASCII 

8RMCS2 

STATUS 

FAILING 

DATA3<CRLF> 

12 

103300 

37 

137 

137 


.ASCII 

a 

‘mm 

“BIT- 

a<CRLF> 

13 

14 

15 

103337 

.05 

130 

120 


.ASCIZ 

aEJPCTir 

MRESSa 

103376 

122 

115 

105 

EH344: 

.ASCII 

3RMER1 

STATUS 

HEADER 

FAILINGa<CRLF> 

16 

103436 

137 

137 

137 


.ASCII 

a 

~mm 

WORD 

BIT3<CRLF> 

17 

103474 

105 

130 

120 


.ASCIZ 

aEKPETB 

NUMBER 

POSITONB 

18 

103534 

105 

130 

120 

EH353: 

.ASCII 

aEXPCTD 

RECEVDa<CRLF> 


19 

20 
21 

103553 

074 

103 

122 


.ASCIZ 

a<CRLF> 

RMLA 1 

RMLA 1 

RMOF a 

103610 

040 

122 

115 

STSH1 : 

.ASCII 

a RMCS1 

RMCS2 

RMDS 

RMER1 RMER23 

22 

103655 

040 

040 

040 


.ASCIZ 

a RMAsa 



23 

103665 

040 

122 

115 

STSH2: 

.ASCII 

a RMUC 

RMBA 

RMDA 

RMOF RMDCa 

24 

103732 

040 

040 

040 


.ASCIZ 

a RMEC1 RMEC23 


25 

103754 

040 

122 

115 

STSH3: 

.ASCIZ 

a RMDA 

RMDC 

RMOF 

RMLA3 

26 

104012 

040 

122 

115 

STSH4: 

.ASCIZ 

a RMNR1 

RMMR2 

RMDT 

RMSNa 


27 .EVEN 


M 6 


SEQ 0283 
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1 

104050 

001140 

001142 

000000 

EDI: 

.WORD 

SGDDAT.SBDDAT.O 

2 

104056 

001276 

000000 


ED1 10 

• WORD 

SBASE.O 

3 

/ 

104062 

001174 

001176 

000000 

ED1 1 1 

.WORD 

STMPO,STNP1.0 

H 

5 

104070 

001364 

001176 

001200 

ED1 14 

.WORD 

RMDTI,STMP1,*TMP2,0 

6 

7 

104100 

001140 

001142 

001174 

ED223 

.WORD 

SGDDAT , SBDDAT , $ TMPO , 0 

f 

8 

Q 

104110 

001134 

001140 

001136 

ED336 

.WORD 

SGDADR . SGDDAT . SBDADR . SBDDAT . 0 

V 

10 

104122 

001140 

001142 

001174 

ED337 

.WORD 

SGDDAT, SBDDAT, STMP0,STMP1 ,0 

11 

12 

13 

104134 

001140 

001142 

001444 

ED353 

.WORD 

SGDDAT, SBDDAT,RMOFO.O 

104144 

001336 

001346 

001350 

STSD1 

.WORD 

RMCS1 I ,RMCS2I ,RMDSI .RMER1 I.RMER2I ,RMASI .0 

14 

15 

104162 

104176 

001340 

001404 

001342 

000000 

001344 

STSD2 

.WORD 

.WORD 

RMWCI .RMBAI .RMDAI ,RM0FI .RMDCI .RMEC1 I 
RMEC2I.0 

16 

104202 

001344 

001372 

001370 

STSD3 

.WORD 

RMDAI , RMDCI . RMOF I , RMLAI . 0 

RMNR1 I ,RHMR2I .RMDTI .RMSNI ,0 

17 

104214 

001362 

001376 

001364 

STSD4 

.WORD 
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SEQ 0284 


1 

104226 

000 



Ef 1 10: 

.BYTE 

2 

104227 

000 

000 


EF111: 

• BYTE 

3 

104231 

000 

000 

000 

EF114: 

.BYTE 

4 

104234 

000 

000 

000 

EF 336 : 

.BYTE 

5 

104240 

000 

000 

000 

EF337: 

.BYTE 

0 

7 

8 

104245 

000 

000 

000 

STSF: 

• EVEN 

.BYTE 


0 

0,0 
0 . 0.0 
0 . 0 . 0.0 
0.0. 0.0.0 

0 . 0 . 0 . 0 , 0 . 0.0 
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SEQ 0285 


104254 

10425*. 

105260 


7 106264 

8 106270 

9 107270 
10 

11 

12 107272 

13 107276 

14 110276 

15 

16 

17 110300 

18 110304 

19 110374 

20 
21 
22 

23 104254 

24 104254 

25 104255 

26 104256 

27 104274 

28 104312 

29 104344 

30 104371 

31 104425 

32 104476 

33 104522 

34 104555 

35 104625 

36 104675 

37 104735 

38 105006 

39 105062 

40 105117 

41 105155 

42 105212 

43 105243 

44 105304 

45 105363 

46 105451 

47 105501 

48 105502 

49 105536 

50 105572 

51 105607 

52 105644 

53 105670 

54 105713 

55 105750 

56 105757 

57 106010 


000000 000000 
177777 


000000 000000 
177777 

000000 000000 

177777 

104254 


.'STORAGE FOR GENERAL DATA TRANSFERRS 
BUFFER: 

BUFONE: .BLKW 258. 

BUFTUO: .BLKW 258. 

.-STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE 
MFGFIL: .WORD 0.0 » ;2 HEADER WORDS 

.BLKW 256. .*256. WORDS OF DATA 

.WORD -1 .'TERMINATOR IF FILE IS FULL 

; STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
USRFIL: .WORD 0.0 ;2 HEADER WORDS 

.BLKW 256. ; 256. WORDS OF DATA 

.WORD -1 .-TERMINATOR IF FILE IS FULL 


.•STORAGE FOR SKIP SECTOR FILE 
SSFIL: .WORD 0.0 


.BLKW 

.WORD 


;2 HEADER WORDS 

;2 CYLINDERS OF SKIP SECTOR ENTRIES 
.'TERMINATOR 


.=BUFFER 


200 

200 

114 

111 

123 

.ASCII 

.ASCII 

.ASCII 

<CRLF> 

<CRLF> 

8LIST OF TEST$8<CRLF> 

055 

055 

055 

.ASCII 

8———' 

a<CRLF> 

124 

061 

Oil 

.ASCII 

8T1 

CONTROLLER ACCESS TEST3<CRLF> 

124 

062 

Oil 

.ASCII 

8T2 

WRITE, READ ZER0S8<CRLF> 

124 

063 

Oil 

•ASCII 

8T3 

WRITE, WRITE CHECK ZEROSa<CRLF> 

124 

064 

Oil 

.ASCII 

8T4 

WRITE, WRITE CHECK ZEROS W/ WCE ERR0R8<CRLF> 

124 

065 

Oil 

.ASCII 

8T5 

WRITE, READ 0NES3<CRLF> 

124 

066 

Oil 

.ASCII 

8T6 

WRITE, WRITE CHECK 0NES8<CRLF> 

124 

067 

Oil 

.ASCII 

8T7 

WRITE, WRITE CHECK ONES W/ WCE ERR0Ra<CRLF> 

124 

061 

060 

.ASCII 

8T10 

WRITE, WRITE CHECK MULTIPLE SECTORSa<CRLF> 

124 

061 

061 

.ASCII 

8T1 1 

WRITE, READ W/ IMPLIED SEEK8<CRLF> 

124 

061 

062 

.ASCII 

8T12 

WRITE, WRITE CHECK W/ HEAD SWITCHINGa<CRLF> 

124 

061 

063 

.ASCII 

8T13 

WRITE, WRITE CHECK W/ MID-TRANSFER SEEKa<CRLF> 

124 

061 

064 

.ASCII 

am 

WRITE, READ W/ HCE ERRORa<CRLF> 

124 

061 

065 

.ASCII 

8T15 

WRITE, READ W/ HCI % SSEI8<CRLF> 

124 

061 

066 

.ASCII 

8T16 

WRITE, READ W/ I VC ERR0R8<CRLF> 

124 

061 

067 

.ASCII 

8T17 

WRITE, READ W/ AB0RT8<CRLF> 

124 

062 

060 

.ASCII 

8T20 

WRITE, READ EARLY PEAK SHIFTa<CRLF> 

124 

062 

061 

.ASCII 

8T21 

WRITE, READ EACH TRACK W/ MIXED PEAK SHIFT3<CRLF> 

124 

062 

062 

.ASCII 

8T22 

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET M0DE8<CRLF> 

124 

062 

063 

.ASCII 

8T23 

FORMAT FE CYLINDERS8<CRLF> 

200 

117 

120 

105 

.ASCII 

.ASCII 

<CRLF> 

80PERATI0NAL SWITCH SETTINGS8<CRLF> 

055 

055 

055 

.ASCII 

a 

a<CRLF> 

123 

1 27 

111 

.ASCII 

aSWITCH 

USE8<CRLF> 

055 

055 

055 

.ASCII 

a 

a<CRLF> 

040 

040 

061 

.ASCII 

a 15 

HALT ON ERRORa<CRLF> 

040 

040 

061 

.ASCII 

a 14 

LOOP ON TESTa<CRLF> 

040 

040 

061 

.ASCII 

a 13 

INHIBIT ERROR TYPEOUTSa<CRLF> 

040 

040 

061 

.ASCII 

a 12 

a<CRLF> 

040 

040 

061 

.ASCII 

a ii 

INHIBIT ITERATIONSa<CRLF> 

040 

04C 

061 

.ASCII 

a io 

BELL ON ERRORa<CRLF> 


c ? 


SEQ 0286 
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58 106034 

040 

040 

040 

.ASCII 

8 

9 

LOOP ON ERR0Ra<CRLF> 

59 106060 

040 

040 

040 

.ASCII 

a 

8 

LOOP ON TEST IN SWR<7:0>aCRLF> 

60 106117 

040 

040 

040 

.ASCII 

a 

7 

TNl28a<CRLF> 

61 106133 

040 

040 

040 

.ASCII 

a 

6 

TN64d<CRLF> 

62 106146 

040 

040 

040 

.ASCII 

a 

5 

TN323<CRLF> 

63 106161 

040 

040 

040 

.ASCII 

a 

4 

TMl6a<CRLF> 

64 1 06174 

040 

040 

040 

.ASCII 

a 

3 

TN8a<CRLF> 

65 106206 

040 

040 

040 

.ASCII 

a 

2 

TN4a<CRLF> 

66 106220 

040 

040 

04 0 

.ASCII 

a 

1 

TN2a<CRLF> 

67 106232 

040 

040 

040 

.ASCIZ 

a 

0 

TNia<CRLF> 

68 

69 

000200 



.END 

200 
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ABASE = 

176700 

ATNMSK= 000377 

8UF0NE 

104254 

EBL = 

020000 

EH344 

103376 

ACDU1 = 

OOOOOO 

ATNTBL 067344 

BUFTWO 

105260 

ECH = 

000100 

EH353 

103534 

ACDU2 = 

■ 

AUNIT = OOOOOO 

CC = 

004000 

EC1 = 

004000 

EMS1 

074442 

ACKSTS 

051026 


CH = 

002000 

ECRC = 

001000 

EMS10 

074776 

ACPUOP= 


AVECT1= 120254 

CHGADR 

001330 

EDT1 

074264 

EMS100 

077216 

AODUO = 

[>mI 

AVECT2= OOOOOO 

CHRCNT 

063467 

EDT110 

074302 

EMS101 

077244 

ADDW1 = 

OOOOOO 

A16 = 000400 

CKSWR = 

104410 

EDT111 

074304 

EMS102 

077272 

ADDW10= 

OOOOOO 

A17 = 001000 

CLKADR 

001522 

EDT114 

074306 

EMS103 

077321 

ADDW1 1 s 

OOOOOO 

BACK = 000001 

CLKVCT 

001524 

EDT2 

074274 

EMS104 

077330 

AODU12- 

I 

BADSCT 034762 

CLR = 

000040 

EDT223 

074310 

EMS105 

077357 

AODW1 3= 

OOOOOO 

BADTMO 005344 

CLRSTS 

050146 

EDT336 

074320 

EMS106 

077406 

ADDW14= 


BAI = 000010 

CMNSTA 

007332 

EDT337 

074330 

EMS11 

075040 

ADDWl 5= 

OOOOOO 

BBOO = 000001 

CMP8UF 

037462 

EDT344 

074340 

EMS110 

077425 

AODW2 = 

OOOOOO 

BB01 = 000002 

CMPERR 

046124 

EDT353 

074352 

EMS111 

077454 

ADOU3 = 

OOOOOO 

BBO 2 = 000004 

CNSL01 

066521 

EDI 

104050 

EMS112 

077465 

A0DW4 = 

OOOOOO 

B803 = 000010 

CNSL02 

066531 

ED1 10 

104056 

EMS113 

077551 

AODW5 = 

OOOOOO 

BB04 = 000020 

CNSL03 

066573 

ED1 1 1 

104062 

EMS114 

077601 

A0DW6 = 


BB05 = 000040 

CNSL04 

066602 

ED1 14 

104070 

EMS115 

077625 

ADDW7 = 

OOOOOO 

BB06 = 000100 

CNSL07 

066636 

ED223 

104100 

EMS116 

077630 

ADDW8 = 

OOOOOO 

BB07 = 000200 

CNSL08 

067000 

ED336 

104110 

EMS117 

077660 

A0DW9 = 

OOOOOO 

BB08 = 000400 

CNSL09 

067001 

ED337 

104122 

EMS12 

075051 

ADEVCT- 


BB09 = 001000 

CNTCLR 

050030 

ED353 

104134 

EMS120 

077702 

ADEVM = 

OOOOOO 

BITO = 000001 

COMMA 

066105 

EECC = 

C 00020 

EMS121 

077702 

ADR = 

000001 

BITOO = 000001 

CONT = 

000100 

EFT1 

074354 

EMS122 

077745 

AENV = 


BIT01 = 000002 

CPSAVE 

062640 

EFT110 

074372 

EMS123 

100002 

AENVM = 

ml 

3IT02 = 000004 

CR = 

000015 

EFT111 

074374 

EMS124 

100045 

AFATAL= 

OOOOOO 

BIT03 = 000010 

CRLF = 

000200 

EFT114 

074376 

EMS125 

100077 

ALL 

066074 

BIT04 = 000020 

CTLFG 

001326 

EFT? 

074364 

EMS126 

100142 

AMADR1= 


BIT05 = 000040 

CYLMSK= 

001777 

EFT223 

074400 

EMS1 27 

100205 

AMADR2= 

■'Mi--''' 

BIT06 = 000100 

DBCK = 


EFT336 

074410 

EMS13 

075112 

AMADR3- 


BIT07 ■= 000200 

DBEN = 

040000 

EFT337 

074420 

EMS130 

100244 

AMADR4= 

OOOOOO 

BIT08 = 000400 

DSL = 

002000 

EFT344 

074430 

EMS131 

100302 

AMAMS1 = 


B1T09 = 001000 

DCK = 


EFT353 

074440 

EMS132 

100342 

AMAMS2= 


BIT1 = 000002 

DDISP = 

177570 

EF 110 

104226 

EMS133 

100366 

AMAM$3= 

wMvl 

BIT10 = 002000 

DEBL = 

020000 

EF111 

104227 

EMS134 

100411 

AKAMS4= 


BIT11 = 004000 

DEVSEL 

046336 

EF114 

104231 

EMS135 

100453 

AMSGAD= 

OOOOOO 

BIT12 = 010000 

DISPLA 

001156 

EF336 

104234 

EMS136 

100526 

AMSGLG= 

OOOOOO 

BIT13 = 020000 

DISPRE 

000174 

^fZ37 

104240 

EMS137 

100553 

AMSGTY- 


8IT14 = 040000 

DLT * 


EHT1 

074140 

EMS14 

075123 

AMTYP1= 

•Mvj'j'Sp 

BIT15 s 100000 

DMD = 

000001 

EHT110 

074162 

EMS140 

100610 

AMTYP2= 


BIT2 - 000004 

DPE = 

000010 

EHT1 1 1 

074166 

EMS141 

100631 

AMTYP3= 

OOOOOO 

BIT3 = 000010 

DPEHI = 

040000 

EHT114 

EHT2 

074172 

EMS142 

100657 

AMTYP4= 

OOOOOO 

BIT4 = 000020 

DPELO = 

020000 

074152 

EMS143 

100674 

AOE = 

001000 

BIT5 = 000040 

DPR = 

000400 

EHT223 

074176 

EMS144 

100722 

APASS = 


BIT6 = 000100 

DRIVES 

067176 

EHT256 

074210 

EMS145 

100 7 32 

APE = 

100000 

BIT7 = 000200 

DRO = 

i* • :y 

EHT336 

074222 

EMS146 

100761 

APR I OR = 

OOOOOO 

BIT8 = 000400 

DRVCLR= 


EHT337 

074234 

EMS147 

10 i 000 

APTCSU- 

000040 

BIT9 = 001000 

DRVSTS 

053364 

EHT344 

074246 

EMS15 

075134 

APTENV= 

000001 

BLNKS1 067241 

DRY = 


EHT353 

074260 

EMS150 

101015 

APTSIZ= 

000200 

BLNKS2 067240 

DSWR = 

EH1 

103004 

EMS151 

101053 

APTSPO- 

000100 

BLNKS3 067237 

DTASTS 

054166 

EH110 

103023 

EMS152 

101057 

ARCS = 

000004 

BLNKS4 067236 

DTE = 

010000 

EH111 

103032 

EMS153 

101103 

ASNDA 


BOTADR 063464 

DTO = 

010000 

EH114 

103051 

EMS154 

101125 

ASNDC 

-i 

BOTFLG 063466 

DULPRT= 

024026 

EH223 

103100 

EMS155 

101141 

ASWREG= 

OOOOOO 

BPTVEC= 000014 

DVA = 

004000 

EH256 

103126 

EMS156 

101161 

ATA = 

100000 

*3®' ■ : M 1 • I • i • I • I • ■Mi 

DVC = 

000200 

EH336 

103202 

EMS157 

101177 

ATESTN= 

OOOOOO 

BUFFER 104254 

EARLY 

067670 

EH337 

103241 

EMS16 

075156 
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EMS160 

EMS161 

EMS162 

EMS163 

EMS164 

EMS165 

E MSI 66 

EMS167 

EMS17 

EMS170 

EMS171 

EMS1 72 

EMS173 

EMS174 

EMS175 

EMS176 

EMS177 

EMS2 

EMS20 

EMS200 

EMS201 

EMS202 

EMS203 

EMS204 

EMS205 

EMS206 

EMS207 

EMS21 

EMS210 

EMS211 

EMS212 

EMS213 

EMS214 

EMS215 

EMS216 

EMS217 

EMS22 

EMS220 

EMS221 

EMS222 

EMS223 

EMS224 

EMS225 

EMS226 

EMS227 

EMS23 

EMS230 

EMS231 

EMS232 

EMS24 

EMS25 

EMS26 

EMS27 

EMS3 

EMS30 

EMS31 

EMS32 


101214 
101231 
101261 
101261 
101305 
101366 
101402 
101427 
075206 
101454 
101503 
101 536 
101556 
101573 
101601 
101627 
101656 
074511 
075246 
101700 
101715 
101763 
102013 
102026 
102054 
102066 
102113 
075271 
102140 
102151 
102167 
102212 
102235 
102253 
102274 
102324 
075314 
102357 
102377 
102447 
102500 
102555 
102627 
102652 
102701 
075330 
102/12 
102741 
102757 
075356 
075405 
075422 
075443 
074526 
075454 
075464 
075513 


EMS33 

EMS34 

EMS35 

EMS36 

EMS37 

EMS4 

EMS40 

EMS41 

EMS42 

EMS43 

EMS44 

EMS45 

EMS46 

EMS47 

EMS5 

EMS50 

EMS51 

EMS52 

EMS53 

EMS54 

EMS55 

EMS56 

EMS57 

EMS6 

EMS60 

EMS61 

EMS62 

EMS63 

EMS64 

EMS65 

EMS66 

EMS67 

EMS7 

EMS70 

EMS71 

EMS72 

EMS73 

EMS74 

EMS75 

EMS76 

EMS77 

EMTVEC= 

EMT1 

EMTIO 

EMT100 

EMT101 

EMT102 

EMT103 

EMT104 

EMT105 

EMT106 

EMT107 

EMT11 

EMT110 

EMT111 

EMT11? 

EMT113 


075542 

075570 

075641 

075670 

075717 

074571 

075745 

075774 

076022 

076051 

076100 

076153 

076216 

076245 

074634 

076274 

076323 

076351 

076363 

076375 

076417 

076446 

076523 

074664 

076551 

076564 

076613 

076631 

076657 

076675 

076743 

077013 

074731 

077040 

077052 

077065 

077075 

077112 

077131 

077137 

077170 

000030 

070002 

070052 

071056 

071074 

071112 

071122 

071134 

071152 

071162 

071172 

070056 

071212 

071224 

071232 

071240 


EMT114 

EMT115 

EMT116 

EMT117 

EMT12 

EMT120 

EMT121 

EMT122 

EMT123 

EMT124 

EMT125 

EMT126 

EMT127 

EMT13 

EMT130 

EMT131 

EMT132 

EMT133 

EMT134 

EMT135 

EMT136 

EMT137 

EMT14 

EMT140 

EMT141 

EMT142 

EMT143 

EMT144 

EMT145 

EMT146 

EMT147 

EMT15 

EMT150 

EMT151 

EMT152 

EMT153 

EMT154 

EMT155 

EMT156 

EMT157 

EMT16 

EMT160 

EMT161 

EMT162 

EMT163 

EMT164 

EMT165 

EMT166 

EMT167 

EMT17 

EMT170 

EMT171 

EMT1 72 

EMT1 73 

EMT174 

EMT175 

FMT176 


071254 

071256 

071266 

071276 

070062 

071306 

071316 

071326 

071336 

071346 

071356 

071366 

071400 

070070 

071412 

071424 

071436 

071450 

071462 

071474 

071506 

071520 

070102 

071530 

071540 

071550 

071560 

071570 

071600 

071610 

071620 

070110 

071630 

071640 

071652 

071664 

071702 

071720 

071732 

071744 

070116 

071756 

071766 

072000 

072012 

072022 

072030 

072036 

072044 

070126 

072052 

072064 

072074 

072104 

072114 

072126 

072134 
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SEQ 0288 


EMT177 

EMT2 

EMT20 

EMT200 

EMT201 

EMT202 

EMT203 

EMT204 

EMT205 

EMT206 

EMT207 

EMT21 

EMT210 

EMT211 

EMT212 

EMT2T3 

EMT214 

EMT215 

EMT216 

EMT217 

EMT22 

EMT220 

EMT221 

EMT222 

EMT223 

EMT224 

EMT225 

EMT226 

EMT227 

EMT23 

EMT230 

EMT231 

EMT232 

EMT233 

EMT234 

EMT235 

EM T 236 

EMT237 

EMT24 

EMT240 

EMT241 

EMT242 

EMT243 

EMT244 

EMT245 

EMT246 

EMT247 

EMT25 

EMT250 

EMT251 

EMT252 

EMT253 

EMT254 

EMT255 

EMT25§ 

EMT25* 

EMT26 


072142 

070006 

070136 

072144 

072156 

072170 

072202 

072214 

072232 

072242 

072252 

070146 

072264 

072272 

072306 

072322 

072332 

072352 

072364 

072374 

070156 

072404 

072414 

072424 

072434 

072444 

072460 

072500 

072510 

070166 

072524 

072526 

072530 

072532 

072534 

072536 

072540 

072542 

070176 

072544 

0F2546 

072550 

072552 

072554 

072556 

072560 

072570 

070206 

072602 

072616 

072624 

072632 

072650 

072660 

072670 

072700 

070216 


EMT260 

EMT261 

EMT262 

EMT263 

EMT264 

EMT265 

EMT266 

EMT267 

EMT27 

EMT270 

EMT271 

EMT272 

EMT273 

EMT274 

EMT275 

EMT276 

EMT277 

EMT3 

EMT30 

EMT300 

EMT301 

EMT302 

EMT303 

EMT304 

EMT305 

EMT306 

EMT307 

EMT31 

EMT310 

EMT311 

EMT312 

EMT313 

EMT314 

EMT315 

EMT316 

EMT317 

EMT32 

EMT320 

EMT321 

EMT322 

EMT323 

EMT324 

EMT325 

EMT326 

EMT327 

EMT33 

EMT330 

EMT331 

EMT332 

EMT333 

EMT334 

iSriil 

EMT337 

EMT34 


072712 

072724 

072744 

072754 

072764 

073004 

073024 

073036 

070226 

073054 

073070 

073106 

073124 

073142 

073160 

073172 

073206 

070014 

070236 

073224 

073244 

073266 

073300 

073312 

073324 

073336 

073346 

070246 

073366 

073400 

073412 

073424 

073444 

073456 

073470 

073502 

070256 

073512 

073522 

073532 

073540 

073550 

073562 

073574 

073612 

070266 


073624 

073634 

073646 

073660 

073676 

073714 

073734 

073744 

070276 

073754 

073766 


EMT340 

EMT341 
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SY 1*1801 

TABLE 







EMT34? 

073774 

ERTYOO 063470 

ILRG60= 000060 

OFD = 

000200 

RMAS = 

00G016 

EMT343 

074006 

ERTY01 063475 

ILRG62= 000062 

OFFSET* 

000014 

RMASI 

001354 

EMT344 

074020 

ERTY02 063505 

ILRG64= 00C064 

OM 


RMASO 

001430 

E«T545 

074032 

ERTY03 063514 

ILRG66= 000066 

ONES 

067414 

RMBA = 

000004 

E*T 346 

074042 

ERTY04 063522 

ILRG70* 000070 

OPE = 

020000 

RMBAE = 

000050 

EMT347 

074056 

ERTY05 063525 

ILRG72= 000072 

OPI = 

020000 

RMBAEI 

001406 

EMT35 

070306 

ESRC = 004000 

ILRG74= 000074 

OR = 

0002C0 

RMBAEO 

001462 

EMT350 

C74070 

FER = 000020 

ILRG76= 000076 

PACACA* 

000022 

RMBAI 

001342 

EMT351 

07^*106 

FIND = 000001 

IOTVEC= 000020 

PAKACK= 

000022 

RMBAO 

001416 

EKT352 

074116 

FMT16 = 010000 

IPCXO = 000001 

PAR = 

000010 

RMCS1 = 

000000 

EMT353 

074122 

FNCDTB 067244 

IPCX1 = 000002 

PAT = 

000020 

RMCS1I 

001336 

EMT354 

074132 

FNCHSK= 000077 

IPCK2 = 000004 

PDA = 

000400 

RMCS10 

001412 

EMT36 

070316 

F C = 000002 

IPCX3 = 000010 

PFECH 

063532 

RMCS2 = 

000010 

EMT37 

070326 

FI = 000004 

IR = 000100 

PFECH1 

063542 

RMCS2I 

001346 

EMT4 

070022 

F2 = 000010 

I VC = 010000 

PFECH2 

063630 

RMCS20 

001422 

EMT40 

070336 

F3 = 000020 

LBf = 002000 

PF ECH3 

063*' 6 

RMCS3 = 

000052 

EHT<.1 

070344 

F4 = 000040 

LBT = 002000 

PFECH4 

063654 

RMCS3I 

001410 

EHT42 

070354 

GENBUF 037214 

LF = 000012 

PGE = 

002000 

RMCS30 

001464 

EMT43 

070366 

GET 040110 

LODEV 067104 

PGM = 

001000 

RMDA = 

000006 

EMT44 

070376 

GETBUF 001336 


PHA = 

000200 

RMDAI 

001344 

EHT45 

070406 

GETINX 001526 

LSC = 004000 

PIP = 

020000 

RMDAO 

001420 

EMT46 

070416 

GETSSF 037070 


PIRQ = 

177772 

RMDB = 

000022 

EMT47 

070426 

GE TSTS 040024 

LSTRK 001334 

PIRQVE* 

000240 

RMDBI 

001360 

EMT5 

070030 

GO = 000001 

MCLK = 004000 

PLFS = 

002000 

RMDBO 

001434 

EHT50 

070434 

GTSWR - 104407 

MCPE = 020000 

PRIERR 

041126 

RMDC = 

000034 

EMT51 

070444 

MCE = 000200 

NDF = 000100 

PRO = 

I" "l'J'IhI 

RMDCI 

001372 

EMI 52 

070456 

HCI = 002000 

HOPE = 000400 

PR1 - 


RMDCO 

001446 

EHT53 

070474 

HCRC -- 000400 

MEDENB 001512 

PR2 = 

hum fiTi»ja«4 

RMDS = 

000012 

EMT54 

070512 

HELP 104254 

MFGFIL 106264 

PR3 = 


RMDSI 

001350 

EMT55 

070522 

HT = 000011 

£■ „ i I •TwiilSHIIHIH 

PR4 = 


RMDSO 

001424 

EMT56 

070534 

IAE = 002000 

MIXED 067354 

PR 5 * 


RMDT = 

000026 

EHT57 

070552 

IBSAVE 062642 

HOC = 000400 

PR6 = 


RMDTI 

001364 

EHT6 

070036 

I DXMSK= 000077 

MOH = 020000 

PR 7 = 


RMDTO 

001440 

EMT60 

070562 

IE = 000100 

MOL = 010000 

PS 

RMEC1 = 

000044 

EMT61 

070600 

ILF = G000G1 

HRD = 002000 

PSEL = 


RMEC1I 

001402 

EMT62 

070620 

ILF 02 = 000002 

MS - 000040 

PSU = 

RMEC10 

001456 

EMT63 

070634 

ILF 24 = 000024 

ih - W * I * I * M ♦ rfliiiiiii 

PUT 


RMEC2 = 

OOOC46 

EMT64 

070644 

ILF 26 - 000026 

MSDRVS 067022 

PUTBUF 

001412 

RMEC2I 

0C1404 

EMT65 

070664 

ILF30 = 000030 

i' il'il | | KIiiimB ' 

PUT I NX 

001555 

RMEC20 

001460 

EHT66 

070704 

ILF 32 = 000032 

MSER = 000200 
MSGDRV 067036 

PURVEC* 

000024 

RMER1 = 

000014 
001 352 

EMT67 

070716 

ILF 3* = 000034 

QUES 

066101 

RMER1I 

EMT7 

070C44 

ILF36 - 000036 

MSHELP 066110 

RCLSTS 

051622 

RMER10 

001426 

EHT70 

070730 

ILF40 = 000040 

MUR = 001000 

RD = 

000070 

RMER2 = 

000042 

EHT71 

070740 

ILF 42 = 000042 

MUD = 000010 

RDCHR = 


RHER2I 

001400 

EMT 72 

070750 

ILF44 = 000044 

MVP = 000010 

RDLIN = 


RMER20 

001454 

FMT73 

070766 

ILF46 = 000046 

MXF = 001000 

RDOCT * 

104413 

RMHR = 

000036 

001374 

EMT74 

071004 

ILF 54 = 000054 

N 067232 

NPTHSK= 115760 

RDY 

000200 

RMHRI 

EMT75 

071014 

ILF 56 = 000056 

READY 

007524 

RMHRO 

001450 

E«T76 

071034 

ILF64 = 000064 

NED = 010000 

RECAL = 


ML A = 

000020 

EMT77 

071044 

ILF66 = 000066 

NEM = 004000 

RESREG* 

10*1415 

RMLAI 

001356 

E NR GOT 

070002 

ILF 74 = 000074 

NONE 067225 

RESVEC* 

000010 

010000 

RMLAO 

001432 

EQUALS 

066072 

ILF76 = 000076 

"■"' l ill ■ 

REX - 

RMFW1 = 

000024 

001362 

001436 

ERR = 

040000 

ILR = 000002 

NOTAVL 067136 

RG 

m 

RMHRI I 

ERRNHB 

063462 

ILRG50= 000050 

NOTPRS 067121 

RGDTPT 

RMMR10 

ERROR = 

104000 

ILRG52= 000052 

NOTRM 067067 

RH = 

000072 

RMMR2 = 

000040 

001376 

ERRTYP 

062644 

ILRG54= 000054 

NSA = 100000 

RIP = 

000020 

RMHR 2 I 

ERRVEC= 

000004 

ILRG56= 000056 

OCC = 1C0000 

RLEASE= 

000012 

RHHR20 

001452 
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RMOF = 

000032 

STSD4 104214 

TST 1 2 

020712 

S8ELL 

001212 

SILLUP 

065522 

RMOFI 

001370 

STSF 104245 

TST13 

021734 

S8IN 

060460 

SINTAG 

001151 

RMOFO 

001444 

STSH1 103610 

TST14 

022546 

SCDU1 

001302 

SITEMB 

001130 

PMR = 

000004 

STSH2 103665 

TST15 

024416 

SCDU2 

001304 

SLF 

001220 

RMSN = 

000030 

STSH3 103754 

TST16 

025720 

SCHARC 

061464 

SLFLG 

066003 

SMSN1 

001366 

STSH4 104012 

TST17 

026740 

SCKSUR 

064170 

SLPADR 

001122 

RMSNO 

001442 

SUR 001154 

TST2 

010076 

tCMTAG 

001114 

SLPERR 

001124 

RMWC = 

G00002 

SWREG 000176 

TST20 

027656 

SCM3 = 

000000 

SHADR1 

001254 

RMUCI 

001340 

SUO = 000001 

TST21 

030664 

SCM4 = 

000005 

SHADR2 

001260 

RMUCO 

001414 

SHOO = 000001 

TST22 

031712 

SCNTLC 

065066 

SMADR3 

001264 

RQA 

100000 

SW01 = 000002 

TST23 

033074 

ICNTLG 

065100 

SMADR4 

001270 

ROB = 

040000 

SW02 = 000004 

TST3 

011104 

SCNTLU 

065073 

SMAJL 

001222 

RTC = 

000016 

SW03 = 000010 

TST4 

012062 

SCPUOP 

001250 

SMAMS1 

001252 

R6 = 

X000006 

SW04 = 000020 

TST5 

013256 

SCRLF 

001217 

SMAMS2 

001256 

R 7 = 

X000007 

SW05 = 000040 

TST6 

014264 

SD8LK 

060676 

SMAMS3 

001262 

SADMSK= 

0003 77 

SW06 = 000100 

TST 7 

015242 

SDDWO 

001306 

SMAMS4 

001266 

SAVREG= 

104414 

SW07 = 000200 

TYPBN = 

104406 

SDDU1 

001310 

JMBADR 

001102 

SA1 

000001 

SW08 = 000400 

TYPOS = 

104405 

SDDU2 

001312 

SMFLG 

066002 

SA16 = 

000020 

SW09 = 001000 

TYPE = 

104401 

SDDU3 

001314 

SMNEU 

065116 

SA2 = 

000002 

SW1 = 000002 

TYPOC = 

104402 

SDDW4 

001316 

SMSGAO 

001236 

SA4 = 

000004 

SW10 = 002000 

TYPON = 

104404 

SDDW5 

001320 

JMSGLG 

001240 

SA8 = 

000010 

SW11 = 004000 

TYPOS = 

104403 

$DDW6 

001322 

JMSGTY 

001222 

SC = 

100000 

SW12 = 010000 

UNS = 

040000 

$DDU7 

001324 

$MSUR 

065105 

SCOPE = 

000004 

SW13 = 020000 

UNTMSK= 

000007 

SDEVCT 

001232 

SMTYP1 

001253 

SCTMSG 

066006 

SU14 = 040000 

UNTOFF 

067155 

JDEVM 

001300 

SMTYP2 

001257 

SCTMSK= 

003700 

SU15 = 100000 

UN TON 

067166 

SDOAGN 

033766 

$MTYP3 

001263 

SCO = 

000100 

SW2 = 000004 

UPE = 

020000 

SDTBL 

060666 

$MTYP4 

001267 

SCI =• 

000200 

SW3 = 000010 

USE = 

040000 

SENDAO 

033756 

SMXCNT 

062152 

SC 2 = 

000400 

SW4 = 000020 

USRFIL 

107272 

SENDCT 

033614 

(NULL 

001170 

SC3 = 

001000 

SU5 = 000040 

UO = 

000001 

SENULL 

033772 

$NWTST= 

000001 

SC4 = 

002000 

SU6 = 000100 

Ul 

000002 

$ENV 

001242 

SOCNT 

061130 

SEARCH= 

000030 

SU7 = 000200 

U2 

000004 

$ENVM 

001243 

SOMODE 

061132 

SECERR 

041760 

SW8 = 000400 

vv = 

000100 

$EOP 

033560 

$OVER 

062136 

SEEK = 

000004 

SW9 = 001000 

uc = 

000040 

JEOPCT 

033606 

fPASS 

001230 

SEKSTS 

046550 

SYSTAT 067044 

UCD = 

000050 

JEOSP 

033522 

SPASTM 

001106 

SHUT 

033776 

TADMSK= 177400 

WCE = 

040000 

SERFLG 

0U1117 

SPOUER 

065530 

SHUT2 

065130 

TAG = 020000 

UCEHI = 

010000 

SERMAX 

001131 

SPWRDN 

065362 

SI2CLK 

040610 

TA6ADR= 001114 

WCELO = 

004000 

SERROR 

062250 

SPWRMG 

065516 

SKI = 

040000 

TAP = 040000 

WCF = 

000040 

SERRPC 

001132 

SPWRUP 

065434 

SNGPRT= 

020026 

TA1 = 000400 

UCH = 

000052 

SERRTB 

001604 

SOUES 

001216 

SSE = 

000040 

TA2 = 001000 

WO = 

000060 

JERTTL 

001126 

SRDCHR 

064532 

SSEI = 

001000 

TA4 = 002000 

UH = 

000062 

$ESCAP 

001210 

SRDLIN 

064622 

SSF = 

020000 

TA8 = 004000 

ULE = 

004000 

SETABL 

001242 

JRDOCT 

065152 

SSFENB 

001514 

T8ITVE= 000014 

WRL = 

004000 

JETENO 

001326 

$RDSZ = 

000010 

SSFIL 

110300 

TIMOUT 040732 

XSIZ 

006364 

SFATAL 

001224 

SRESRE 

060350 

STACK = 

001100 

TKVEC = 000060 

XXDP 

001332 

SFFLG 

066004 

SRM80 

067062 

ST AND A 

006654 

TPVEC = 000064 

Y 

067234 

JFILLC 

001172 

JRTNAD 

033770 

START 

005434 

TRAPVE= 000034 

ZEROS 

067456 

SF ILLS 

001171 

SSAVRE 

060312 

START1 

005424 

TRE = 040000 

SAPTHO 

001100 

SGDAPR 

001134 

SSAVR6 

065526 

START 2 

005440 

TRTVEC= 000014 

JATYC 

065564 

JGDDAT 

001140 

SSCOPE 

061470 

STCDRV 

057606 

TST = 010000 

JATYl 

065540 

$GET42 

033746 

SSETUP= 

000137 

STIMER 

0007** 

TSTNMB 063460 

JATY3 

065546 

JGTSWR 

064260 

SSTUP = 

177777 

s:klht= 

11 7774 

TSTPRP 034032 

JATY4 

065556 

JGT42P 

033742 

SSVLAD 

062 1 02 

stop 

06.7222 

TSTOUE 001466 

SAUTOB 

001150 

SHD = 

000000 

SSVPC = 

000210 

STSOI 

104144 

TST 1 007676 

S6ASE 

001276 

SHIBTS 

C011 00 

$SUR = 

167400 

STSD2 

104162 

TST10 016440 

SBOAOR 

001136 

JHIOCT 

065252 

JSWREG 

001244 

STS03 

104202 

TST11 017466 

S6D0AT 

001142 

SICNT 

C011 20 

$SWRMK= 

000000 


f 
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SYMBOL 
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SSU08T 

062154 

STKS 

001160 

STPS 

STESTN 

001226 

STKSRV 

063740 

STRAP 

STIMES 

001206 

STMPO 

001174 

STRAP2 

STK8 

001162 

STMP1 

001176 

STRP ■ 

STKCNT 

063660 

STMP2 

001200 

STRPAD 

STUNT 

063670 

STMP3 

001202 

STSTM 

STKOEN= 

- 063667 

STMP4 

001204 

STSTNM 

STKQIN 

063662 

STN = 

000024 

STTYIN 

STKQOU 

063664 

$TP8 

001166 

STYPBN 

STKQSR 

063666 

STPFLG 

001173 

STYPDS 

. ABS. 

110376 

000 




000000 

001 



ERRORS 

DETECTED: 

0 




VIRTUAL MEMORY USc'D: 62208 WORDS ( 243 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 

CZRNFA.BIC,CZRNFA/C=CZRNFA.D0C.CZRNFA,C20,0;JSYSMAC/N 


001164 

STYPE 

061134 

SVECT1 

001272 

065254 

STYPEC 

061346 

SVECT2 

001274 

065314 

STYPEX 

061466 

SXOFF = 

000023 

000016 

STYPOC 

060732 

SXON = 

000021 

065326 

STYPON 

060746 

SXTSTR 

061512 

001104 

STYPOS 

060706 

SSGET4* 

000000 

000024 

001116 

SUNIT 

001234 

t$SW08= 

065056 

SUNITM 

001110 

SOFILL 

061131 

060406 

060462 

SUSWR 

001246 

.sx = 

0011 00 


I 
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TABLE (CREf V04.00 ) 










t 

C 

SSGET4 

14-20 

14-20# 












l 

E 

SSSW08 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 i 

e 


41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 


e 


41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1# 

41-1# 

41-1# 

41-1# 


6 


41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 

41-1# 


G 


41-1# 

41-1# 














G 

SOFILL 

39-1 

39-1# 

39-1* 

39-1* 












G 

S40CAT 

41-1 

42-1 














G 

SAPTHO 

5-8 

5-8# 














El 

tASTAT 

48-1 

48-1 














El 

tATYI 

48-1# 















El 

UTY3 

40- . 

48-1# 














El 

SATY4 

42-1 

48-1# 














El 

IATYC 

48-1 

48-1# 














El 

SAUT06 

6-0# 

10-28* 

44-1 

44-1 

44-1 











El 

S8ASE 

6-0# 

10-75 

11-33 

11-42* 

12-54 

13-2 

13-33 

13-180 

13-322 

13-496 

13-644 

13-789 

13-968 

13-:23 


El 


13- =09 

13— >73 

13-796 

13-687 

13-D97 

13-F29 

13-G47 

13-H92 

13-J43 

13-L15 

20-36 

21-30 

23-12 

27-5 3 


El 


29-15 

43-25 

59-2 













El 

$80 ADR 

6-0# 

13-476* 

13-477* 

13-478 

13-948* 

13-949* 

13-950 

18-84* 

59-8 







El 

tBDDAT 

6-0# 

13-464* 

13-472* 

13-482 

13-934* 

13-944* 

13-954 

13-A16* 

13-A32* 

13-A46* 

13-A57* 

13-624* 

13-640* 

13-654* 


El 


13-665* 

13-C94* 

13-C95* 

13-C98* 

13-D01* 

13-D08* 

13-D60* 

13-D61* 

13-D64* 

13-D67* 

13-D74* 

13-E58* 

13-F20* 

13-F75* 


El 


13-G30* 

18-82* 

24-47* 

24-48* 

24-51 

24-69* 

24-75* 

24-91* 

24-108* 

24-124* 

24-152* 

25-36* 

25-37* 

25-49* 


El 


25-50* 

25-60* 

25-61* 

25-63 

25-81* 

25-82* 

25-83 

25-103* 

25-104* 

25-105 

25-136* 

25-137* 

25-138 

25-152* 


El 


25-153* 

25-154 

25-1o6* 

25-167* 

25-179* 

25-180* 

25-196* 

25-197* 

25-222* 

25-223* 

25-237* 

25-238* 

25-252* 

25-253* 


El 


25-267* 

25-268* 

25-280* 

25-281* 

25-310* 

25-311* 

25-325* 

25-326* 

25-340* 

25-341* 

25-357* 

25-358* 

25-383* 

25-384* 


El 


25-398* 

25-399* 

25-413* 

25-414* 

25-428* 

25-429* 

25-459* 

25-460* 

25-482* 

25-483* 

25-497* 

25-498* 

25-519* 

25-520* 


El 


25-538* 

25-562* 

25-623* 

25-624* 

25-630 

25-638 

25-654* 

25-655* 

25-656 

25-682* 

25-683* 

25-684 

25-699* 

25-700 




25-712* 

25-713 

26-39* 

26-53* 

28-37* 

28-71* 

28-72* 

28-73 

28-93* 

28-104* 

28-105* 

28-111 

28-122 

28-135* 




28-148* 

28-173* 

28-187* 

28-188* 

28-201* 

28-217* 

30-29* 

30-30* 

30-32 

30-42* 

30-51* 

30-59 

30-69* 

30-70* 


El 


30-79* 

30-80* 

30-82 

30-92* 

30-101* 

30-102* 

30-104 

30-114* 

30-115* 

30-124* 

30-125* 

30-127 

31-27* 

31-41* 


El 


31-57* 

31-71* 

31-85* 

31-99* 

31-113* 

32-35* 

32-49* 

32-65* 

32-82* 

32-103* 

32-120* 

32-134* 

32-159* 

32-174* 


El 


32-189* 

32-205* 

32-222* 

32-240* 

32-254* 

32-270* 

33-16* 

33-17* 

33-19 

33-28* 

33-29* 

33-31 

33-41* 

33-50* 


El 


33-57* 

33-60 

33-69* 

33-70* 

33-72 

33-81* 

33-82* 

33-84 

33-94* 

33-103* 

34-31* 

34-47* 

34-67* 

34-87* 


El 


34-116* 

34-135* 

34-149* 

34-163* 

34-193* 

34-194* 

34-195 

34-207* 

34-208* 

34-244* 

34-260* 

34-274* 

34-292* 

34-305* 


El 


34-317* 

34-360* 

34-373* 

34-386* 

34-399* 

34-421* 

34-446* 

34-461* 

34-474* 

34-487* 

34-500* 

34-521* 

34-538* 

34-554* 


El 


35-46* 

35-62* 

35-78* 

35-98* 

35-112* 

59-1 

59-6 

59-8 

59-10 

59-11 






El 

WELL 

6-0# 

42-1 

42-1 

42-1 

44-1 

44-1 

44-1 









El 

WIN 

37-1 

37-1# 

37-1* 

37-1* 












El 

tCDWI 

6-0# 















El 

SC0W2 

6-0# 















El 

fCHARC 

40-1 

40-1# 

40-1* 

40-1* 

40-1* 











El 

tCKSWR 

44-1# 

46-1 

46-1 













El 

$CN3 

6-0 

6-0# 














El 

SCN4 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0# 

6-0# 


El 


6-0# 

6-0# 















fCNTAG 

6-0# 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 









SCNTLC 

44-1 

44-1 

44-1 

44-1 

44-1# 











li 

SCNTLG 

44-1 

44-1# 















SCNTLU 

44-1 

44-1 

44-1# 













El 

SCPUOP 

6-0# 















El 

SCRLF 

6-0# 

10-48 

10-80 

10-129 

11-20 

11-28 

11-62 

11-100 

12-25 

12-60 

14-20 

40-1 

40-1 

40-1 




42-1 

42-1 

42-1 

43-20 

43-53 

43-96 

43-106 

43-118 

43-126 

43-146 

44-1 

44-1 

44-1 

44-1 


El 

S06LK 

38-1 

38-1 

38-1# 














SODWO 

6-0# 















S0DW1 

6-0# 













J 

El 

S00W2 

6-0# 














El 


L 


J 
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(DDU3 

6-0# 












(DDU4 

6-0# 












SDDW5 

6-0# 












SD0U6 

6-0# 












SDDU7 

6-0# 












(DEVCT 

6-0# 












(DEVM 

6-0# 

10-67* 

10-78 

10-106* 

10-110* 

11-63* 

11-70* 

11-97* 

11-98 

12-4 

12-38 

13-29* 

SOOAGN 

14-20 

14-20 

14-20# 










(DTBt 

38-1 

38-1# 











(END AD 

5-5 

10-28 

14-20# 

42-1 









(ENDCT 

10-23 

14-20# 











(ENULL 

14-20# 












(ENV 

6-0# 

10-28 

40-1 

42-1 

48-1 

48-1 







(ENVM 

6-0# 

10-23 

10-71 

40-1 

40-1 

48-1 







(EOP 

14-20# 

14-29 











(EOPCT 

10-23* 

14-20 

14-20# 










(EOSP 

14-9# 












SERFLG 

6-0# 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1* 

42-1 

42-1 

42-1* 



SERMAX 

6-0# 

10-23* 

41-1 

41-1 

41-1 

41-1* 







(ERROR 

10-23 

42-1# 











SERRPC 

6*0# 

42-1 

42-1 

42-1 

42-1* 

42-1* 

43-46 






SERRTB 

8-0# 

43-64 











(ERTTL 

6-0# 

14-20 

14-20 

14-20* 

42-1 

42-1 

42-1* 






(ESCAP 

6-0# 

10-23* 

41-1* 

42-1 

42-1 

42-1 

42-1 






SETABL 

6-0# 












SETENO 

5-8 

6-0# 











(FATAL 

6-0# 

48-1* 











(FFLG 

48-1 

48-1# 

48-1* 

48-1* 

48-1* 








(FILLC 

6-0# 

40-1 

40-1 

40-1 









(FILLS 

6-0# 

40-1 

40-1 










(GDADR 

6-0# 

13-475* 

13-478 

13-947* 

13-950 

18-83* 

59-8 






(GDDAT 

6-0# 

13-462* 

13-463* 

13-473* 

13-474* 

13-482 

13-932* 

13-933* 

13-945* 

13-946* 

13-954 

13-A17* 


13-A45* 

13-A58* 

13-825* 

13-841* 

13-842* 

13-853* 

13-866* 

13-C90* 

13-056* 

1 3— £59* 

13-E60* 

13— F 18* 


13-F74* 

13-628* 

13-G29* 

18-81* 

24-49* 

24-50* 

24-51 

24-67* 

24-68* 

24-74* 

24-76* 

24-88* 


24-106* 

24-107* 

24-122* 

24-123* 

24-150* 

24-151* 

25-38* 

25-51* 

25-62* 

25-63 

25-75* 

25-8C* 


25-102* 

25-105 

25-131* 

25-134* 

25-135* 

25-138 

25-150* 

25-151* 

25-154 

25-161* 

25-544* 

25-551* 


25-554* 

25-558* 

25-560 

25-622* 

25-637* 

25-638 

25-648* 

25-653* 

25-656 

25-666* 

25-679* 

25-684 


25-698* 

25-700 

25-710* 

25-711* 

25-713 

26-40* 

26-54* 

28-36* 

28-48* 

28-68* 

28-73 

28-92* 


28-134* 

28-147* 

28-171* 

28-172* 

28-186* 

28-199* 

28-200* 

28-215* 

28-216* 

30-31* 

30-32 

30-41* 


30-68* 

30-81* 

30-82 

30-91* 

30-103* 

30-104 

30-113* 

30-126* 

30-127 

31-25* 

31-26* 

31-39* 


31-59* 

31-72* 

31-73* 

31-86* 

31-87* 

31-100* 

31-101* 

31-114* 

31-115* 

32-33* 

32-34* 

32-47* 


32-64* 

32-80* 

32-81* 

32-101* 

32-102* 

32-118* 

32-119* 

32-132* 

32-133* 

32-157* 

32-158* 

32-173* 


32-188* 

32-203* 

32-204* 

32-220* 

32-221* 

32-238* 

32-239* 

32-252* 

32-253* 

32-268* 

32-269* 

33-18* 


33-31 

33-40* 

33-71* 

33-72 

33-83* 

33-84 

33-92* 

34-29* 

34-30* 

34-45* 

34-46* 

34-65* 


34-86* 

34-114* 

34-115* 

34-133* 

34-134* 

34-147* 

34-148* 

34-161* 

34-162* 

34-172* 

34-191* 

34-195 


34-242* 

34-243* 

34-258* 

34-259* 

34-272* 

34-273* 

34-290* 

34-291* 

34-303* 

34-304* 

34-318* 

34-319* 


34-359* 

34-371* 

34-372* 

34-384* 

34-385* 

34-397* 

34-398* 

34-419* 

34-420* 

34-444* 

34-445* 

34-459* 


34-473* 

34-485* 

34-486* 

34-498* 

34-499* 

34-519* 

34-520* 

34-536* 

34-537* 

34-552* 

34-553* 

35-44* 


35-76* 

35-77 * 

35-96* 

35-97* 

35-110* 

35-111* 

59-1 

59-6 

59-8 

59-10 

59-11 


(GET42 

12-34 

12-43 

13-30 

14-20# 









(GT42P 

14-20 

14-20# 











(GTSWR 

44-1# 

46-1 

46-1 










(HO 

4-488 

4-488 

4-488 










(HIBTS 

5-8# 












(Hi OCT 

45-1# 

45-1* 











(ICNT 

6-0# 

41-1 

41-1 

41-1 

41-1* 

41-1* 








SEQ 0293 


14-28* 


13-A33* 

13-F19* 

24- 89* 

25- 13 
25-552* 
25-696* 
28-106* 

30- 57* 

31- 40* 
?2-48* 

32- 175* 

33- 19 

34- 66* 
34-209* 
34-327* 

34- 460* 

35- 45* 


13-A34* 

13-F73* 

24- 90* 

25- 94* 
25-553* 
25-697* 
28-107* 

30- 59 

31- 58* 

32- 63* 

32- 187* 

33- 30* 

34- 85* 
34-210* 
34-358* 

34- 472* 

35- 60* 
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SEQ 029L 


SILLUP 

47-1 

47-1 

47-1# 







Si NT AG 

6-0# 

44-1 

44-1 

44-1 

44-1 

44-1* 




SITEHB 

6-0# 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1* 

42-1* 

43-41 

SLF 

6-0# 

40-1 

40-1 

42-1 

42-1 

44-1 

44-1 

44-1 


SLFLG 

48-1# 

48-1* 








SLPADR 

6-0# 

10-23* 

41-1 

41-1 

41-1 

41-1* 

41-1* 

41-1* 


SLPERR 

6-0# 

10-23* 

13-84* 

13-130* 

13-231* 

13-277* 

13-372* 

13-418* 

13-549* 


13-:22* 

1 3— : 75* 

1 3—; 77* 

13-<39* 

1 3->03* 

13-741* 

13-857* 

13-A68* 

13-C50* 


13-146* 

13-192* 

13-J93* 

13-K50* 

41-1 

41-1 

41-1 

41-1* 

42-1 

SHADR1 

6-0# 









SHADR2 

6-0# 









SHADR3 

6-0# 









SHADR4 

6-0# 









SHAH 

5-8 

5-8 

6-0# 

10-23 

10-28 

13-2 

13-33 

13-180 

13-322 


13-=09 

13->73 

13-796 

13-887 

13-D97 

13-F29 

13-G47 

13-H92 

13-J43 

SHAHS 1 

6-0# 









SHAHS2 

6-0# 









SHAHS3 

6-0# 









SHAMS4 

6-0# 









SHBADR 

5-8# 









SHF LG 

48-1 

48-1# 

48-1* 

48-1* 






SHNEW 

44-1 

44-1# 








SHSGAD 

6-0# 

48-1 

48-1* 







SHSGLG 

6-0# 

48-1* 








SHSGTY 

6-0# 

48-1 

48-1 

48-1* 

48-1* 





SHSWR 

44-1 

44-1# 









SHTYP1 

SHTYP2 

SHTYP3 

SHTYP4 

SHXCNT 

SNULL 

SNUTST 


13-596* 13-697* 13-744* 13-842* 13-889* 
1 3-D 18* 13-E68* 13-F90* 13-698* 13-M44* 


13-496 
13— Li 5 


13-644 

40-1 


13-789 

41-1 


13-968 

42-1 


13-;23 


6 - 0 # 
6 - 0 # 
6 - 0 # 
6 - 0 # 
41-1 
6 - 0 # 
13-2 
13-496# 
1 3-=09# 
13-F29 
13-L15# 


41-1 

40-1 

13-2# 

13-644 

13-=09# 

13-F29# 


41-1 

40-1 

13-2# 

13-644# 

1 3— >73 

13-F29# 


41-1# 

40-1 

13-33 

13-644# 

13— >73# 

13-647 


13-33# 13-33# 
13-789 13-789# 
13— >73# 13-796 
13-647# 13-647# 


13-180 

13-789# 

13-796# 

13-H92 


13-180# 13-180# 
13-968 13-968# 
13-796# 13-B87 
13-H92# 13-H92# 


13-322 13-322# 
13-968# 13—; 23 
13-B87# 13-087# 
13-J43 13-J43# 


13-322# 

13-;23# 

13-D97 

13-J43# 


13-496 13-496# 
13-.-23# 13- =09 
13-D97# 13-097# 
13— Li 5 1 3— Li 5# 


SOCNT 

39-1# 

39-1* 

39-1* 


SOMOOE 

39-1 

39-1# 

39-1* 

39-1* 

SOVER 

41-1 

41-1 

41-1 

41-1 

SPASS 

6-0# 

10-23* 

14-20 

14-20 

SPASTH 

5-8# 




SPOUER 

47-1 

47-1# 



SPWRDN 

10-23 

47-1 

47-1# 


SPWRHG 

47-1# 




SPURUP 

47-1 

47-1# 



SOUES 

6-0# 

40-1 

40-1 

42-1 

SR2A 

46-1 




SRDCHR 

44-1# 

46-1 

46-1 


SRDDEC 

46-1 




SRDL1N 

44-1# 

46-1 

46-1 


SRDOCT 

45-1# 

46-1 

46-1 


SRDS2 

44-1 

44-1# 



SRESRE 

36-1# 

46-1 



SRH80 

10-91 

43-28 

49-26# 


SR TNAD 

14-20# 





39-1* 

41-1# 

14-20 


39-1* 


14-20* 14-20* 


42-1 44-1 44-1 44-1 44-1 
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SEQ 0295 


JSAVR6 

47-1 

47-1# 

47-1* 

47-1* 

47-1* 










SSAVRE 

36-1# 

46-1 

46-1 












SSCOPE 

10-23 

41-1# 













SSETUP 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

10-23 


10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-23 

10-28 

10-28 

10-28 


14-20 

14-20 

41-1 

42-1 

42-1 

42-1 

42-1 

44-1 

44-1 

44-1 

44-1 

44-1 



SSTUP 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 

4-785# 


4-785# 

4-785# 

4-785# 

4-785# 











SSVLAD 

41-1 

41-1# 













SSVPC 

5-5 

5-5# 













SSW08T 

41-1 

41-1# 













SSWR 

4-477# 

4-488 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

6-0 

6-0 

6-0 

10-23 


10-23 

10-23 

10-23 

10-23 

13-2 

13-33 

13-180 

13-322 

13-496 

13-644 

13-789 

13-968 

13-:23 

13-=09 


1 3— >73 

13-796 

13-687 

13-097 

13-F29 

13-G47 

13-H92 

13-J43 

13-L15 

14-20 

14-20 

14-20 

14-JO 

14-20 


41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

41-1 


41-1 

41-1 

41-1 

41-1 

41-1 

41-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 


42-1 

42-1 

42-1 

47-1 











SSWREG 

6-0# 

10-23 













SSWRMK 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

4-489 

41-1 

41-1 

41-1 

41-1 

41-1 


41-1 

41-1 

41-1 

41-1 

41-1 










STESTN 

6-0# 

13-2* 

13-33* 

13-180* 

13-322* 

13-496* 

13-644* 

13-789* 

13-968* 

13—; 23* 

13-=09* 

13->73* 

13-796* 

13-887* 


13-D97* 

13-F29* 

13-G47* 

13-H92* 

13-J43* 

13— Li 5* 

41-1* 

43-37 







STINES 

6-0# 

10-23* 

12-46* 

13— Li 5* 

14-20* 

41-1 

41-1 

41-1 

41-1* 

41-1* 





ST KB 

6-0# 

40-1 

40-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 





STKCNT 

44-1 

44-1 

44-1# 

44-1* 

44-1* 

44-1* 









STKINT 

11-4 

12-49 

44-1 

44-1 

44-1# 










STKQEN 

44-1 

44-1 

44-1# 












STKQIN 

44-1 

44-1 

44-1# 

44-1* 

44-1* 

44-1* 

44-1* 








STKOOU 

44-1 

4<*-1 

44-1# 

44-1* 

44-1* 

44-1* 









STKQSR 

44-1 

44-1 

44-1 

44-1# 











STKS 

6-0# 

40-1 

40-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1* 

44-1* 

44-1* 

44-1* 

44-1* 

44-1* 

STKSRV 

44-1 

44-1# 













STMPO 

6-0# 

13-54* 

13-201* 

13-343* 

13-465* 

13-517* 

13-665* 

13-810* 

13-935* 

13-990* 

13-:28* 

13-;45* 

13-B19* 

13-A18* 


13-A20* 

13-B26* 

13-B28* 

13— CIO* 

13-El 3* 

13-G68* 

13-114* 

13-J63* 

17-59 

18-85* 

20-41* 

21-55* 

27-29* 

27-31 


59-3 

59-6 

59-10 












STMP1 

6-0# 

11-13* 

11-14 

11-16 

11-36* 

11-38 

11-42 

11-50* 

11-52 

11-56 

11-66* 

11-67 

11-73 

11-75 


11-76 

11-78 

11-83* 

11-84 

11-87 

11-88 

11-90 

11-95 

13-55* 

13-202* 

13-344* 

13-466* 

13-518* 

13-666* 


13-811* 

13-936* 

13-991* 

13-.-29* 

13-;46* 

13-820* 

13-A21* 

13-B29* 

13— Cl 1 * 

13-E14* 

13-G69* 

13-115* 

13-J64* 

17-60 


20-42* 

20-43 

21-36* 

21-37 

26-$4* 

26-25* 

26-37 

26-39 

27-28* 

27-37 

59-3 

59-5 

59-10 


STMP2 

6-0# 

26-27* 

26-28* 

26-50 

26-53 

59-5 









STMP3 

6-0# 














STMP4 

6-0# 














STN 

4-478# 

4-488 

13-2 

13-2 

13-2 

13-2# 

13-33 

15-33 

13-33 

13-33# 

13-180 

13-180 

13-180 

13-180# 


13-322 

13-322 

13-322 

13-322# 

13-496 

13-496 

13-496 

13-496# 

13-644 

13-644 

13-644 

13-644# 

13-789 

13-789 


13-789 

13-789# 

13-968 

13-968 

13-968 

13-968# 

1 3— ;23 

13— ;23 

13— ;23 

1 3—; 23# 

13-=09 

13-=09 

13-sOt 

13-=09# 


1 3— >73 

13->73 

13->73 

13->73# 

13-7% 

13-796 

13-796 

13-796# 

13-B87 

13-687 

13-B87 

13-B87# 

13-D97 

1 3-097 


13-D97 

13-097# 

13-F29 

13-F29 

13-F29 

13-F29# 

13-G47 

13-G47 

13-G47 

13-G47# 

13-H92 

13-H92 

13-H92 

13-H92# 


13-J43 

13-J43 

13-J43 

13-J43# 

13-115 

13-L15 

1 3— Li 5 

13-L15# 

41-1 

41-1 





STP8 

6-0# 

40-1 

40-1 

40-1* 











STPFLG 

6-0# 

40-1 

40-1 

40-1 











STPS 

6-0# 

40-1 

40-1 

40-1 











STRAP 

10-23 

46-1# 













STRAP2 

46-1 

46-1# 













STRP 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 


46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 


46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 
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STRPAO 

STSTH 

STSTNM 

tTTYIN 

$TYPSN 

STYPDS 

$TYPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

STYPOS 

SUN IT 

SUNITM 

SUSWR 

SVECT1 

SVECT2 

SXOFF 

SXON 


46-1 

46-1# 

46-1 

5- 8# 

6 - 0 # 
44-1 

37- 1# 

38- 1# 
40-1# 
40-1 
40-1 

39- 1# 
39-1 

39- 1# 
6 - 0 # 

5- 8# 

6 - 0 # 
6 - 0 # 
6 - 0 # 

40- 1 
40-1 


46-1 

46-1# 

46-1# 

12-45* 

44-1 

46-1 

46-1 

46-1 

40-1 

40-1 

46-1 

39-1# 

46-1 

12-51* 


46-1 

46-1# 


14-20* 

44-1 

46-1 

46-1 

46-1 

40-1 

40-1# 

46-1 

46-1 


11-46 11-56* 


SXTSTR 

41-1# 



.SASTA 

48-1 

48-1 


.sx 

5-8 

5-8# 


A16 

4-731# 



A17 

4-730# 



ABASE 

4-782# 

6-0 

6-0 

ACDU1 

6-0 

6-0 


AC0U2 

6-0 

6-0 

31-15# 

ACKSTS 

15-151 

16-136 

ACPUOP 

6-0 

6-0 


AODWO 

6-0 

6-0 


AOOW1 

6-0 

6-0 


A0DW10 

6-0 



ADDW11 

6-0 



AOOW12 

6-0 



A0DW13 

6-0 



A0DW14 

6-0 



A0DW15 

6-0 



ADDW2 

6-0 

6-0 


A00W3 

6-0 

6-0 


A0DW4 

6-0 

6-0 


ADDW5 

6-0 

6-0 


ADDW6 

6-0 

6-0 


AD0U7 

6-0 

6-0 


A00W8 

6-0 



A0DW9 

6-0 



AOEVCT 

6 ' 

6-0 


ADEVM 

6-0 

6-0 

13-2# 

ADR 

13-2 

13-2# 

13-496# 

13-644 

13-644^ 


46-1 

46-1# 


46-1 46-1 46-1 46-1 46-1 46-1 46-1# 46-1# 46-1# 46-1# 

46-1# 46-1# 46-1# 46-1# 46-1# 46-1# 

41-1 41-1 41-1 41-1 41-1* 41-1* 42-1 42-1 42-1 44-4 

44-1 44-1# 


48-1 

40-1# 


12-56 12-62 24-49 43-22 


AENV 

AENVM 


1 3-=09# 
13-F29 
1 3— Li 5# 
6-0 
6-0 


13-=09# 

13-F29# 


13->73 

13-F29# 


13-33 13-33# 13-33# 13-180 
13-644# 13-789 13-789# 13-789# 
13— >73# 13->73# 13-796 13-796# 
13-647 13-647# 13-647# 13-H92 


13-33# 13-180 13-180# 13-180# 13-322 13-322# 13-322# 13-496 13-496# 
13-789# 13-789# 13-968 13-96S# 13-968# 13-;23 13-;23# 13-;23# 13' =09 
13-796 13-796# 13-796# 13-687 13-687# 13-B87# 13-D97 13-D97# 13-097# 
13-647# 13-H92 13-H92# 13-H92# 13-J43 13-J43# 13-J43# 13-L15 13-L15# 
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SEQ 0297 


AFATAL 

6-0 

6-0 



ALL 

11-69 

49-5# 



AMA0R1 

6-0 

6-0 



AMA0R2 

6-0 

6-0 



AMADR3 

6-0 

6-0 



AMADR4 

6-0 

6-0 



AMAWS1 

6-0 

6-0 



AMAMS2 

6-0 

6-0 



AMAMS3 

6-0 

6-0 



AMAMS4 

6-0 

6-0 



AMSGAO 

6-0 

6-0 



AMSGLG 

6-0 

6-0 



AMSGTY 

6-0 

6-0 



AMTYP1 

6-0 

6-0 



AMTYP2 

6-0 

6-0 



AMTYP3 

6-0 

6-0 



AMTYP4 

6-0 

6-0 



AOE 

4-579# 

50-86 

4-590 

25-307 

25-322 

APASS 

6-0 

6-0 



APE 

4-760# 




APR I OR 

6-0 




APTCSU 

40-1 

48-1# 



APTENV 

40-1 

42-1 

48-1 

48-1# 

APTSIZ 

10-23 

48-1# 



APTSPO 

40-1 

48-1 

48-1# 


ARCS 

13-41 

13-41# 

13-52# 

13-68# 


25-307 25-322 25-337 25-352 25-356 25-679 25-683 50-77 50-78 50-81 50-82 50-85 


13-122# 

13-188# 

13-271# 

13-356# 

13-428 

13-538# 

13-621# 

13-689# 

13-771# 

13-852 

13-922# 

1 3— : 55# 

13— ; 13# 

13-;96# 

13— <61# 

13-= 56# 

1 3— >24# 

13-724# 


13-A14# 

13-851# 

13-C80# 

13^J^ 


13-124# 
13-199# 
13-273# 
13-359# 
13-428# 
13-541# 
13-624# 
13-693# 
13-773# 
13-852# 
13-926# 
13-.-58# 
13— ; 15# 
13-;99# 
13-<65# 
13-=60# 
1 3— >28# 
13-733# 
13-817# 
13-A30# 

13-C82# 

13-082# 

13 F86# 

13-135# 

13-J17# 


13-126# 

13-215# 

13-286 

13-361# 

13-443# 

13-545# 

13-626# 

13-707 

13-776# 

13-869# 

13-930# 

13-.-60# 

13— ;31 

13-<03# 

13-<83# 

13-= 78# 

13->43# 

13-735# 

13-841# 

13-A43# 

13-872# 

13-C35# 

13-El 1# 

13-F04# 

13-F99 

13-G87# 

13-H69# 

13-138# 

13-J20# 


13-139 

13-218# 

13-286# 

13-364# 

13-446# 

13-559 

13-629# 

13-707# 

13-780# 

13-872# 

13-960# 

13-.-63# 

13— ;31# 

13— <21# 

13-<86# 

13— =81# 

13->46# 

13-737# 

13-844# 

13-A55# 

13-897 

13-C89# 

13— El 8 

13-F07# 

13-F99# 

13-G90# 

13-H72# 

13-142# 

13-J22# 


13-71# 

13-139# 

13-220# 

13-301# 

13-368# 

13-448# 

13-559# 

13-633# 

13-724# 

13-782# 

13-874# 

13-985 

13-.-67# 

13— ;43# 

13— <24# 

13— <89# 

13-=83# 

13->48# 

13-750 

13-846# 

13-A64# 

13-897# 

13-012# 

13-El 8# 

13— FI 1# 

13-G18# 

13-G94# 

13-H74# 

13-155 

13-J25# 


13-73# 

13-155# 

13-223# 

13-304# 

13-381 

13-451# 

13-576# 

13-635# 

13-727# 

13-784# 

13-877# 

13-985# 

13-.-69# 

13— ;61# 

13— <27# 

13-<93# 

13-=86# 

13— >51# 

13-750# 

13-849# 

13-A76 

13-C08# 

13-014# 

13-E39# 

13-F16# 

13-G21# 

13-H07 

13-H77# 

13-155# 

13-J29# 


13-76# 

13-158# 

13-227# 

13-306# 

13-381# 

13-455# 

13-579# 

13-637# 

13-729# 

13-797 

13-881# 

13-988# 

13-:71# 

13— <95# 

1 3— =95# 

13->60# 

13-765# 

13-853# 

13-A76# 

13-C34# 

13-027 

13-E42# 

13-F24# 

13-G24# 

13-H07# 

13-H81# 

13-172# 

13-J31# 


13-80# 

13-160# 

13-240 

13-309# 

13-398# 

13-460# 

13-581# 

13-639# 

13-732# 

13-797# 

13-883# 

13-.-06# 

13-.-84 

13— ;66# 

13-<33# 

13-<97# 

13-=97# 

13->62# 

13-768# 

13-866 

13-A93# 

13-C37# 

13-027# 

13-E44# 

13-F44 

13-635# 

13-H24# 

13-H83# 

13-175# 

13-J33# 


13-93 

13-163# 

13-240# 

13-313# 

13-401# 

13-411# 

13-584# 

13-652 

13-736# 

13-808# 

13*885# 

13-.-09# 

1 3— : 84# 

13— ;69# 

13-<35# 

13-<99# 

13-= 99# 

13->64# 

13-770# 

13-866# 

13-A96# 

13-C39# 

13-043# 

13-E47# 

13-F44# 

13-G38# 

13-H27# 

13-H85# 

13-177# 

13-J35# 


13-93# 

13-167# 

13-257# 

13-315# 

13-403# 

13-504 

13-588# 

13-652# 

13-738# 

13-826# 

13-899 

13— s 11# 

13— : 99# 

13-;73# 

13— <48 

13-=33 

13— >12 

13->98 

13-773# 

13-883# 

13-A98# 

13-C42# 

13-046# 

13-E51# 

13-F63# 

13-G40# 

13-H29# 

13-H87# 

13-180# 

13-J50 


13-110# 

13-169# 

13-260# 

13-317# 

13-406# 

13-504# 

13-590# 

13-663# 

13-740# 

13-829# 

13-899# 

13— : 14# 

13-.-02# 

13— r 86 

1 3— <48# 

13-=33# 

1 3 — > 1 2 # 

13->98# 

13-782# 

13-886# 

13-601# 

13-C46# 

13-048# 

13-E56# 

13-F66# 

13-G42# 

13-H32# 

13-100 

13-184# 

13-J50# 


13-113# 

13-171# 

13-262# 

13-330 

13-410# 

13-515# 

13-592# 

13-681# 

13-753 

13-831# 

13-914# 

1 3 — : 1 8 # 

13 ;04# 

13-.-86# 

13-<53# 

13-=48# 

13— >16# 

13-716# 

13-784# 

13-888# 

13-805# 

13-C59 

13-051# 

13-E64# 

13-F69# 

13-G55 

13-H36# 

13-100# 

13-186# 

13-J61# 


13-115# 

13-175# 

13-265# 

13-330# 

13-412# 

13-533# 

13-605 

13-684# 

13-753# 

13-834# 

13-917# 

13~:40 

13 -; 0 7 # 

13— ;91# 

13-<56# 

13— =51# 

1 3 — > 1 9 # 

13-719# 

13-786# 

13-891# 

13-822# 

13-C59# 

13-055# 

13-E77 

13-F79# 

13-G55# 

13-H38# 

13-112# 

13-188# 

13-J77# 


13-118# 

13-188 

13-269# 

13-341# 

13-414# 

13-536# 

13-605# 

13-686# 

13-768# 

13-838# 

13-919# 

13-:40# 

13—; 11# 

13-;94# 

13-<58# 

13— =53# 

13— >21# 

13-721# 

13-806 

13-895# 

13-838# 

13-C77# 

13-078# 

13-E77# 

13-F82# 

13-066# 

13-H40# 

13-130# 

13-J01 

13-J80# 
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13-J82# 

13-J85# 

13-J89# 

13-K02 

13-K02# 

13-K14# 

13-K20# 

13-K23# 

13-K30# 

13-K33# 

13-K35# 

13-K38# 

13-K42# 

13-K44# 


13-K46# 

13-K58 

13-K58# 

13-K71# 

13-K80# 

13-K83# 

13-K91# 

13-K94# 

13-K96# 

13-K99# 

13-L03# 

13-L05# 

13-L07# 

13-L26# 


13-L40 

13-L40# 

13-L54# 

13-L57# 

13-L59# 

13-L61# 

13-L65# 

13-L67# 







ASNDA 

7-0# 

16-307* 

16-344 

16-374* 

16-377 

16-380 

16-382* 

16-383* 

16-384 

16-386* 

16-425 




ASNDC 

7-0# 

16-306* 

16-343 

16-387* 

16-388 

16-424 









ASUREG 

6-0 

6-0 













ATA 

4-559# 

25-134 

25-135 

25-137 

28-161 

28-162 

28-197 

28-200 

32-145 

32-146 

32-185 

32-188 

50-58 

50-59 


50-60 

50-63 

50-64 

50-67 

50-68 

50-69 

50-70 

50-71 

50-72 

50-73 

50-74 

50-75 

50-76 

50-79 


50-80 

50-83 

50-84 

50-87 

50-88 










ATESTN 

6-0 

6-0 













ATNWSK 

4-596# 

33-55 













ATNTBL 

10-78 

10-106 

10-110 

11-97 

12-17 

51-3# 









AUNIT 

6-0 

6-0 













AUSUR 

6-0 

6-0 













AVECT1 

4-783# 

6-0 

6-0 












AVECT2 

6-0 

6-0 













BACK 

13-41 

13-41# 

13-52 

13-52# 

13-68 

13-68# 

13-71# 

13-73# 

13-76 

13-76# 

13-80 

13-80# 

13-80# 

13-93 


13-93# 

13-110 

13-110# 

13-113# 

13-115# 

13-118 

13-118# 

13-122 

13-122# 

13-122# 

13-124 

13-124# 

13-124# 

13-126 


13-126# 

13-126# 

13-139 

13-139# 

13-155 

13-155# 

13-158# 

13-160# 

13-163 

13-163# 

13-167 

13-167# 

13-167# 

13-169 


13-169# 

13-169# 

13-171 

13-171# 

13-171# 

13-175 

13-175# 

13-188 

13-188# 

13-199 

13-199# 

13-215 

13-215# 

13-218# 


13-220# 

13-223 

13-223# 

13-227 

13-227# 

13-227# 

13-240 

13-243# 

13-257 

13-257# 

13-260# 

13-262# 

13-265 

13-265# 


13-269 

13-269# 

13-269# 

13-271 

13-271# 

13-271# 

13-273 

13-273# 

13-273# 

13-286 

13-286# 

13-301 

13-301# 

13-304# 


13-306# 

13-309 

13-309# 

13-313 

13-313# 

13-313# 

13-315 

13-315# 

13-315# 

13-317 

13-317# 

13-317# 

13-330 

13-330# 


13-341 

13-341# 

13-356 

13-356# 

13-359# 

13-361# 

13-364 

13-364# 

13-361 

13-368# 

13-368# 

13-381 

13-381# 

13-398 


13-398# 

13-401# 

13-403# 

13-406 

13-406# 

13-410 

13-410# 

13-410# 

13-412 

13-412# 

13-412# 

13-414 

13-414# 

13-414# 


13-428 

13-428# 

13-443 

13-443# 

13-446# 

13-448# 

13-451 

13-451# 

13-455 

13-455# 

13-455# 

13-460 

13-460# 

13-460# 


13-488 

13-488# 

13-488# 

13-504 

13-504# 

13-515 

13-515# 

13-533 

13-533# 

13-536# 

13-538# 

13-541 

13-541# 

13-545 


13-545# 

13-545# 

13-559 

13-559# 

13-576 

13-576# 

13-579# 

13-581# 

13-584 

13-584# 

13-588 

13-588# 

13-588# 

13-590 


13-590# 

13-590# 

13-592 

13-592# 

13-592# 

13-605 

13-605# 

13-621 

13-621# 

13-624# 

13-626# 

13-629 

13-629# 

13-633 


13-633# 

13-633# 

13-635 

13-635# 

13-635# 

13-637 

13-637# 

13-637# 

13-639 

13-639# 

13-652 

.3-652# 

13-663 

13-663# 


13-681 

13-681# 

13-684# 

13-686# 

13-689 

1^*689# 

13-693 

13-693# 

13-693# 

13-707 

13-707# 

13-724 

13-724# 

13-727# 


13-729# 

13-732 

13-732# 

13-736 

13-736# 

13-736# 

13-738 

13-738# 

13-738# 

13-740 

13-740# 

13-740# 

13-753 

13-753# 


13-768 

13-768# 

13-771# 

13-773# 

13-776 

13-776# 

13-780 

13-780# 

13-780# 

13-782 

13-782# 

13-782# 

13-784 

13-784# 


13-784# 

13-797 

13-797# 

13-808 

13-808# 

13-826 

13-826# 

13-829# 

13-831# 

13-834 

13-834# 

13-838 

13-838# 

13-838# 


13-852 

13-852# 

13-869 

13-869# 

13-872# 

13-874# 

13-877 

13-877# 

13-881 

13-881# 

13-881# 

13-883 

13-883# 

13-883# 


13-885 

13-885# 

13-885# 

13-899 

13-899# 

13-914 

13-914# 

13-917# 

13-919# 

13-922 

13-922# 

13-926 

13-926# 

13-926# 


13-930 

13-930# 

13—930# 

13-960 

13-960# 

13-960# 

13-985 

13-985# 

13-988 

13-968# 

13-:06 

13-:06# 

13-:09# 

1 3— : 1 1 # 


13—: 14 

1 3— : 1 4# 

1 3— : 1 8 

13—: 18# 

13— : 1 8# 

13— : 40 

13-:40# 

13— : 55 

13-.-55# 

13-:58# 

13-:60# 

13— :63 

13-:63# 

13-:67 


13-.-67# 

13- :6 70 

13-.-69 

13-:69# 

13-:69# 

13— : 71 

13— :71# 

13— : 71# 

13— : 84 

13-.-84# 

13-:99 

13-:99# 

13-;02# 

13-;04# 


13-;07 

13 -;07# 

13—; 1 1 

13—; 1 1# 

13—; 1 1# 

13—; 13 

13-;13# 

13— ; 13# 

13—; 15 

13— ; 1 5# 

13—; 1 5# 

13— ;31 

1 3—; 31# 

13-;43 


13-;43# 

13-;61 

13-;61# 

13-;64# 

13-;66# 

13-;69 

13— ;69# 

13-;73 

13— ;73# 

13-.-73# 

13— ;86 

13-.-86# 

13— ;91 

13— ;91# 


13-.-94# 

13-;96f 

13-;99 

l3-;99# 

13-<03 

*3-<03# 

13--C03# 

13— <21 

13— <21# 

13-<24# 

13-<27 

13-<27# 

13— <31 

13— <31# 


13— <31# 

12-<33 

13-<33# 

13-<33# 

13-<35 

13-<35# 

1 3— <35# 

13— <48 

13-<48# 

13— <53 

1 3-<53# 

13-<56# 

13-<58# 

13— <61 


1 3— <61# 

13-<65 

13-<65# 

13-<65# 

13—J83 

13-<83# 

13-<86# 

13-<89 

13-<89# 

13-<93 

13-<93# 

13-<93# 

13-<95 

13-<95# 


1 3— <95# 

13-<97 

13-<97# 

13-<97# 

13-<99 

13-<99# 

13— =33 

13-=33# 

13-=48 

13-=48# 

13— =51# 

13-= 53# 

13-=56 

13-=56# 


13-=60 

13-=60# 

13-=60# 

13-=78 

13-= 78# 

13-=81# 

1 3-=83# 

13-=86 

13-=86# 

13-=95 

13-=95# 

13-=95# 

13-=97 

1 3-=97# 


1 3-=97# 

13-=99 

13-=99# 

13-=99# 

13— >12 

13— >12# 

1 3— >16 

13— >16# 

13— >19# 

13— >21# 

13 *>24 

13— >24# 

13->28 

13->28# 


13->28# 

1 3->43 

1 3— >425# 

13->46# 

13->48# 

13— >51 

13— >51# 

13->60 

13->60# 

13->60# 

13->62 

1 3— >62# 

1 3— >62# 

13->64 


13->64# 

13->64# 

13->98 

13->98f 

13-716 

13-716# 

13-719# 

13-721# 

13-724 

13-724# 

13-733 

13-733# 

13-733# 

13-735 


13-735# 

13-735# 

13-737 

13-737# 

13-737# 

13-750 

13-750# 

13-765 

13-765# 

13-768# 

13-770# 

13-773 

13-773# 

13-782 


13-782# 

13-782# 

13-784 

13-784# 

13-784# 

13-786 

13-786# 

13-786# 

13-806 

13-806# 

13-817 

13-817# 

13-841 

13-841# 


13-B44# 

13-846# 

13-849 

13-849# 

13-853 

13-853# 

13-853# 

13-866 

13-866# 

13-883 

13-883# 

13-886# 

13-888# 

13-891 


13-891# 

13-895 

13-895# 

13-895# 

13-A14 

13-A14# 

13-A14# 

13-A30 

13-A30# 

13-A30# 

13-A43 

13-A43# 

13-A43# 

13-A55 


13-A55# 

13-A55# 

13-A64 

13-A64# 

13-A64# 

13-A76 

13-A76# 

13-A93 

13-A93# 

13-A96# 

13-A98# 

13-801 

13-B01# 

13-B05 


13-B05# 

13-B05# 

13-622 

13-622# 

13-622# 

13-638 

13-B38# 

13-638# 

13-651 

13-651# 

13-851# 

13-863 

13-363# 

13-8637 


13-672 

13-672# 

13-872# 

13-697 

13-697# 

13-C08 

13-C08# 

13-C34 

13-C34# 

13-C37# 

13-C39# 

13-C42 

13-C42# 

13-C46 
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13-C46# 

13-C46# 

13-C59 

13-C59# 

13-C77 

13-C77# 

13-C80# 

13-C82# 

13-C85 

13-C85# 

13-C89 

13-C89# 

13-C89# 

13-012 


13-012# 

13-012# 

13-014 

13-014# 

13-014# 

13-027 

13-027# 

13-043 

13-043# 

13-046# 

13-048# 

13-051 

13-051# 

13-055 


13-055# 

13-055# 

13-078 

13-078# 

13-078# 

13-080 

13-080# 

13-080# 

13-082 

13-082# 

13-El 1 

13-El 1# 

13-El 8 

13-El 8# 


13-E39 

13-E39# 

13-E42# 

13-E44# 

13-E47 

13-E47# 

13-E51 

13-E51# 

13-E51# 

13-E56 

13-E56# 

13-E56# 

13-E64 

13-E64# 


13-E64# 

13-E77 

13-E77# 

13-E99 

13-E99# 

13-F02# 

13-F04# 

13-F07 

13-F07# 

13-F11 

13-F11# 

13-F11# 

13-F16 

13-F16# 


13-F16# 

13-F24 

13-F24# 

13-F24# 

13-F44 

13-F44# 

13-F63 

13— F 63# 

13-F66# 

13-F69 

13-F69# 

13-F79# 

13-F82 

13-F82# 


13-F84 

13-F84# 

13-F84# 

13-F86 

13-F86# 

13-F86# 

13-F99 

13-F99# 

13-G18 

13-G18# 

13-G21# 

13-G24 

13-G24# 

13-G35# 


13-G38 

13-G38# 

13-G40 

13-G40# 

13-G40# 

13-G42 

13-G42# 

13-G42# 

13-G55 

13-G55# 

13-G66 

13-G66# 

13-682 

13-G82# 


13-G85# 

13-G87# 

13-G90 

13-690# 

13-G94 

13-G94# 

13-G94# 

13-H07 

13-H07# 

13-H24 

13-H24# 

13-H27# 

13-H29# 

13-H32 


13-H32# 

13-H36 

13-H36# 

13-H36# 

13-H38 

13-H38# 

13-H38# 

13-H40 

13-H40# 

13-H40# 

13-H53 

13-H53# 

13-H69 

13-H69# 


13-H72# 

13-H74# 

13-H77 

13-H77# 

13-H31 

13-H81# 

13-H81# 

13-H83 

13-H83# 

13-H83# 

13-H85 

13-H85# 

13-H85# 

13-H87 


13-H87# 

13-100 

13-100# 

13-112 

13-112# 

13-130 

13-130# 

13-133# 

13-135# 

13-138 

13-138# 

13-142 

13-142# 

13-142# 


13-155 

13-155# 

13-172 

13-172# 

13-175# 

13-177# 

13-180 

13-180# 

13-184 

13-184# 

13-184# 

13-186 

13-186# 

13-186# 


13-188 

13-183# 

13-188# 

13-J01 

13-J01# 

13-J17 

13-J17# 

13-J20# 

13-J22# 

13-J25 

13-J25# 

13-J29 

13-J29# 

13-J29# 


13-J31 

13-J31# 

13-J31# 

13-J33 

13-J33# 

13-J33# 

13-J35 

13-J35# 

13-J50 

13-J50# 

13-J61 

13-J61# 

13-J77 

13-J77# 


13-J80# 

13-J82# 

13-J85 

13-J85# 

13-J89 

13-J89# 

13-J89# 

13-K02 

13-K02# 

13-K14 

13-K14# 

13-K20 

13-K20# 

13-K23# 


13-K30 

1 3-K30# 

13-K33# 

13-K35# 

13-K38 

13-K38# 

13-K42 

13-K42# 

13-K42# 

13-K44 

13-K44# 

13-K44# 

13-K46 

13-A46# 


13-K46# 

13-A58 

13-A58# 

13-K71 

13-K71# 

13-K80 

13-K80# 

13-K83# 

13-K91 

13-K91# 

13-K94# 

13-K96# 

13-K99 

13-K99* 


13-L03 

13-L03# 

13-L03# 

1 3— LOS 

13-L05# 

13-L05# 

13-L07 

13-L07# 

13-L07# 

13-L26 

13-L26# 

13-L40 

13-L40# 

13-L54 


13-L54# 

13-L57# 

13-L59# 

13-L61 

13-L61# 

13-L65 

13-L65# 

13-L65# 

13-L67 

13-L67# 

13-L67# 




BADSCT 

13-52 

13-199 

13-341 

13-515 

13-663 

13-808 

13-988 

13-;43 

13-917 

13-C08 

13-El 1 

13-G66 

13-112 

13-J61 


13-L26 

16-33# 













BAD TWO 

10-3# 

10-25 













BA I 

4-749# 

25-556 













B800 

4-678# 














8601 

4-678# 














8802 

4-678# 














B803 

4-678# 














8804 

4-678# 














B805 

4-678# 














8806 

4-678# 














8807 

4-678# 














8808 

4-678# 














BB09 

4-678# 














BITO 

4-492# 

23-43 













BITOO 

4-492 

4-492# 

4-504 

4-551 

4-569 

4-588 

4-625 

4-643 

4-678 

4-752 

4-770 

41-1 

41-1 

42-1 

BIT01 

4-492 

4-492# 

4-503 

4-550 

4-587 

4-624 

4-642 

4-678 

4-752 

4-769 





8IT02 

4-492 

4-492# 

4-502 

4-549 

4-586 

4-623 

4-641 

4-678 

4-752 

4-768 





BIT03 

4-492 

4-492# 

4-501 

4-548 

4-585 

4-622 

4-640 

4-678 

4-690 

4-749 

4-767 




BIT04 

4-492 

4-492# 

4-500 

4-547 

4-584 

4-639 

4-678 

4-748 







BIT05 

4-492 

4-492# 

4-499 

4-583 

4-621 

4-638 

4-678 

4-689 

4-747 






BIT06 

4-492 

4-492# 

4-568 

4-582 

4-604 

4-620 

4-637 

4-678 

4-733 

4-746 

4-766 




BIT07 

4-492 

4-492# 

4-567 

4-581 

4-603 

4-619 

4-636 

4-661 

4-678 

4-688 

4-732 

4-745 



BIT08 

4-492 

4-492# 

4-544 

4-566 

4-580 

4-602 

4-618 

4-635 

4-678 

4-731 

4-744 

41-1 



BIT09 

4-492 

4-492# 

4-543 

4-565 

4-579 

4-601 

4-617 

4-634 

4-660 

4-678 

4-730 

4-743 

41-1 

41-1 


42-1 

42-1 













BIT1 

4-492# 

16-312 

17-26 

25-576 












4-492# 

4-542 

4-564 

4-578 

4-600 

4-616 

4-633 

4-659 

4-675 

4-687 

4-729 

4-742 

4-765 

15-165 

BiTII 

4-492# 

i 1 

4-498 

4-541 

4-563 

4-577 

4-615 

4-632 

4-650 

4-658 

4-674 

4-686 

4-741 

4-764 

15-167 

BIT12 

HI-1 

4-492# 

4-562 

4-576 

4-614 

4-631 

4-657 

4-673 

4-685 

4-740 

4-763 

15-111 




BIT13 

4-492# 

4-561 

4-575 

4-613 

4-630 

4-649 

4-672 

4-684 

4-696 

4-728 

4-739 

4-762 

42-1 


81 T14 

4-492# 

4-560 

4-574 

4-612 

4-629 

4-648 

4-671 

4-685 

4-695 

4-727 

4-738 

4-761 

15-73 

41-1 

BIT15 

4-492# 

4-559 

4-573 

4-611 

4-628 

4-647 

4-670 

4-682 

4-694 

4-726 

4-737 

4-760 

18-33 

18-90 
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SEQ 0300 


BIT2 

BIT3 

BIT4 

BITS 

B1T6 

BIT7 

BIT8 

BIT9 

BLNKS1 

BLNKS2 

BLNKS3 

BLNKS4 

BO T ADR 

BOTFLG 

BPTVEC 

BSE 

BUFFER 

BUFONE 


BUFTWO 


4-49 2# 
4-492# 
4-492# 

4-492# 
4-492# 
4-492# 
4-492# 
4-492# 
49-40# 
10-121 
49-38# 
10-82 
43-73* 
43-54* 
4-492# 
4-682# 
16-48* 
13-47 
13-980 
1 3— Cl 7* 
13-123 
13-144 
1 3— <73 


CTIFG 

CYLMSK 

D8CK 


23-43 

15-198 

15-140 

15-87 

10-71 


cc 

4-674# 


CH 

4-675# 


CHGAOR 

7-0# 

10-14* 

CHRCNT 

43-55* 

43-78* 

CKSWR 

41-1 

42-1 

CLKAOR 

7-0# 

22-6* 

CLKVCT 

7-0# 

22-7* 

CLR 

4-747# 

10-84 

CLRSTS 

15-98 

30-22# 

CMNSTA 

10-130 

12-2# 

CNPBUF 

13-175 

13-639 

CMPERR 

26-21# 


CNSL01 

11-32 

49-15# 

CNSL02 

11-40 

49-16# 

CNSL03 

11-44 

49-17# 

CNSL04 

11-54 

49-18# 

CNSL07 

11-61 

49-19# 

CNSL08 

11-92 

49-21# 

CNSL09 

49-22# 


CNTCLR 

15-76 

29-12# 

COMMA 

11-86 

12-6 

CONT 

4-637# 


CPSAVE 

41-1 

41-1 

CR 

4-492# 

11*73 

CRLF 

4-492# 

10-6 


*T * I V 

49-33 

61-31 

61-45 

61-59 

7-0# 

4-665# 

4-611# 


49-11 

58-7 

61-32 

61-46 

61-60 

12-47* 


34-324 

34-430 


23-20 


49-37# 

43-91* 

43-101* 

13-A52 

16-292 

13-98 

13-:26 

13— Cl 9* 

13-136* 

13-175 

13-<99 


34-41 1 


11-34 11-48 49-39# 


43-94 

43-104 

13-A58 

61-2# 

13-175 

13-;38 

13-C67 

61-3# 

13-425* 

13-A81 


10-17* 

43-84* 

42-1 

12-55 


43-109 

43-107* 

13-860 
61-21 
13-194 
13— <10 
13-082 

13-466 

13-033 


11-25 

43-35 

46-1# 

22 - 12 * 

29-16 


43-153# 

43-154# 

13-866 13-C99 13-001 13-065 


13-245 

13-<99 

13-E06 

13-473 

13-082 


13-336 
1 3— =20 
13-F37 

13-475 

13-E87 


13-387 
1 3->86 
13-G61 


11-27* 

43-88* 43-92 


22-14 23-20 23-39 


1 3-<99 13-082 13-H87 13-J35 18-17# 


13-510 

i3-ai2 

13-H13 


13-490* 13-610 
13-H59 13-H87 


43-97* 43-108* 43-155# 


13-067 

16-224 

25-427 




13-564 

13-824 

13-H87 

13-639 

13-826* 

13-107 

13-658 

13-828* 

13-160 

13-712 

13-871 

13-J35 

13-803 

13-C03 

13-J56 

13-858 

1 3— Cl 5 
13-J97 

13-639 

13-J06 

13-896* 

13-J35 

13-936 

16-60 

13-945 

16-445 

13-947 

16-472 

13-962* 

61-4# 


12-14 

41-1 

49-7# 

41-1* 

41-1* 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1# 

42-1* 

42-1* 

43-172 

11-84 

10-28 

40-1 

10-28 

40-1 

10-42 

43-76 

10-53 

57-79 

10-59 

12-30 

40-1 

40-1 

49-3 

49-5 

49-8 

49-9 

49-12 

49-13 

49-14 

49-15 

49-16 

49-18 

49-19 

49-20 

49-21 

49-22 

49-23 

49-25 

58-11 

58-12 

58-15 

58-16 

58-18 

61-24 

61-25 

61-26 

61-27 

61-28 

61-29 

61-30 

61-33 

61-34 

61-35 

61-36 

61-37 

61-38 

61-39 

61-40 

61-41 

61-42 

61-43 

61-44 

61-47 

61-48 

61-49 

61-50 

61-51 

61-52 

61-53 

61-54 

61-55 

61-56 

61-57 

61-58 

61-61 

14-22 

61-62 

44-3* 

61-63 

61-64 

61-65 

61-66 

61-67 
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DBEN 

4-612* 







D8L 

4-765* 





25-516 

34-417 

DCK 

4-573* 

4-590 

16-221 

18-23 

25-496 

00 ISP 

4-492* 

6-0 

10-23 





OEBL 

4-613* 







DEVSEL 

15-62 

27-12* 



42-1* 



DISPLA 

6-0* 

10-23* 

10-23* 

41-1* 



OISPRE 

5-1* 

10-23 






OLT 

4-737* 

25-309 

34-496 

34-499 




OHO 

4-625* 

4-643* 

13-E22 

13-E81 



34-470 

OPE 

4-690* 

24-137 

25-251 

28-32 

32-31 

34-43 

OPE HI 

4-761* 







DPELO 

4-762* 




33-30 



DPR 

4-566* 

28-200 

30-125 

30-126 



DRIVES 

12-3 

49-33* 






DRQ 

4-650* 







ORVCLR 

4-512* 

16-86 

33-18 





ORVSTS 

16-104 

33-9* 



25-38 

28-200 

30-125 

DRY 

4-567* 

24-104 

25-34 

25-37 

DSVR 

4-492* 

6-0 

10-23 



13-315 

13-368 

DTASTS 

13-80 

13-124 

13-169 

13-227 

13-271 

13-782 

13-838 

13-883 

13-930 

1 3— : 1 8 

13-:69 

1 3—; 1 3 


13-353 

13-A14 

13-A30 

13-A43 

13-A55 

13-622 

13-B38 


13-G94 

13-H38 

13-H83 

13 142 

13-186 

13-J31 

13-J89 

DTE 

4-576* 

4-590 

34-283 

34-301 

34-304 



OTO 

4-614* 







DUIPRT 

4-653* 






27-37 

OVA 

4-498* 

10-89 

20-43 

21-37 

24-65 

24-68 

OVC 

4-688* 

28-132 

30-115 

32-92 

32-130 

32-133 

32-266 

EARLY 

13-G68 

52-107* 






EBL 

4-630* 






25-512 

ECH 

4-582* 

4-590 

16-221 

18-25 

25-479 

25-494 

ECI 

4-65S# 

18-21 

25-514 

34-424 




ECRC 

4-634* 







EDI 

55-1 

59-1* 






ED1 10 

55-4 

59-2* 






£0111 

55-5 

59-3* 






ED1 14 

55-7 

59-5* 






E0223 

55-8 

59-6* 






ED336 

55-10 

59-8* 






ED337 

55-11 

55-12 

59-10* 





ED353 

55-14 

59-11* 






t'DTI 

8-3 

8-6 

8-9 

8-12 

8-15 

8-18 

8-24 

8-48 

8-51 

8-54 

8-57 

8-60 

8-63 

8-66 


8-90 

8-93 

8-96 

8-99 

8-102 

8-105 

8-108 


8-133 

8-136 

8-139 

8-142 

8-146 

8-150 

8-154 


8-178 

8-182 

8-185 

8-188 

8-191 

8-194 

8-197 


8-236 

8-239 

8-242 

8-245 

8-248 

8-251 

8-254 


8-278 

8-281 

8-284 

8-287 

8-290 

8-293 

8-296 


8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 


8-366 

8-369 

8-372 

8-375 

8-378 

e-381 

8-384 


8-411 

8-414 

8-417 

8-420 

8-423 

8-432 

8-435 


8-504 

8-507 

8-510 

8-519 

8-522 

8-525 

8-531 


8-556 

8-559 

8-563 

8-566 

8-569 

8-573 

8-577 


8-606 

8-609 

8-612 

8-615 

8-618 

8-621 

8-624 


8-648 

8-651 

8-654 

8-657 

8-660 

8-663 

8-666 


SEQ 0301 

34-420 


34-473 


30-126 33-30 


13-412 

13-;73 

13-651 

13-K44 

13-460 

13-<33 

13-663 

13-L05 

13-545 

1 3— <95 
13-C46 
16-199 

13-590 

13-=97 

13-012 

34-17* 

13-635 

1 3— >62 
13-078 

13-693 

13-735 

13-E56 

13-738 

13-784 

13-F16 

30-31 

34-236 

33- 17 

34- 240 

33- 18 

34- 243 

34-288 

35-89 

35-94 

35-97 

25-518 

34-427 

50-77 

50-78 

50-85 

50-86 



8-27 

8-30 

8-33 

8-36 

8-39 

8-42 

8-45 

8-69 

8-72 

8-75 

8-78 

8-81 

8-84 

8-87 

8-111 

8-114 

8-117 

8-120 

8-123 

8-126 

8-130 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

8-200 

8-203 

8-206 

8-209 

8-212 

8-215 

8-218 

8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 

8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-341 

8-344 

8-347 

8-354 

8-357 

8-360 

8-363 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

8-438 

8-441 

8-444 

8-450 

8-453 

8-456 

8-459 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-603 

8-627 

8-630 

8-633 

8-636 

8-639 

8-642 

8-645 

8-669 

8-672 

8-675 

8-678 

8-693 

8-696 

8-702 
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8-705 

8-708 

8-711 

8-714 

8-723 

55-1# 

EDT110 

8-221 

55-4# 

55-5# 




EDT111 

8-224 

8-227 




EDT114 

55-7# 



3-516 

55-2# 


EDT2 

8-426 

8-429 

8-513 


EDT224 

8-447 

8-528 

55-8# 

8-690 

55-10# 


EDT336 

8-351 

8-681 

8-687 


EDT337 

8-684 

55-11# 





EDT344 

8-699 

55-12# 





EDT353 

8-720 

55-14# 





EECC 

4-639# 






EF110 

56-4 

60-1# 





EF111 

56-1 

56-5 

60-2# 

60-3# 



EF114 

56-7 

56-8 

56-14 



EF336 

56-10 

56-11 

56-12 

60-4# 



EF337 

60-5# 



8-12 

8-15 

8-18 

EFT1 

8-3 

8-6 

8-9 

8-48 

8-51 

8-54 

8-57 

8-60 

8-63 


8-90 

8-93 

8-96 

8-99 

8-102 

8-105 


8-133 

8-136 

8-139 

8-142 

8-146 

8-150 


8-178 

8-182 

8-185 

8-188 

8-191 

8-194 


8-236 

8-239 

8-242 

8-245 

8-248 

8-251 


8-278 

8-281 

8-284 

8-287 

8-290 

8-293 


8-320 

8-323 

8-326 

8-329 

8-332 

8-335 


8-366 

8-369 

8-372 

8-375 

8-378 

8-381 


8-411 

8-414 

8-417 

8-420 

8-423 

8-432 


8-504 

8-507 

8-510 

8-519 

8-522 

8-525 


8-556 

8-559 

8-563 

8-566 

8-569 

8-573 


8-606 

8-609 

8-612 

8-615 

8-618 

8-621 


8-648 

8-651 

8-654 

8-657 

8-660 

8-663 


8-705 

8-708 

8-711 

8-714 

8-723 

56-1# 

EFT110 

8-221 

56-4# 





EFT111 

8-224 

8-227 

56-5# 




EFT114 

56-7# 


8-513 


56-2# 


EFT2 

8-426 

8-429 

8-516 


EFT223 

8-447 

8-528 

56-8# 

8-690 

56-10# 


EFT336 

8-351 

8-681 

8-687 


EFT337 

8-684 

56-11# 





EFT344 

8-699 

56-12# 





EFT353 

8-720 

56-14# 





EH1 

54-1 

58-1# 





EH110 

54-4 

58-2# 





EH111 

54-5 

58-3# 





EH114 

54-7 

58-5# 





EH223 

54-8 

58-6# 





EH256 

54-9 

58-7# 





EH336 

54-11 

58-10# 





EH337 

54-12 

58-11# 





EH344 

54-13 

58-15# 





EH353 

54-15 

58-18# 



8-15 

8-18 

EHT1 

8-3 

8-6 

8-9 

8-12 

8-48 

8-51 

8-54 

8-57 

8-60 

8-63 


8-90 

8-93 

8-96 

8-99 

8-102 

8-105 


8-133 

8-136 

8-139 

8-142 

8-146 

8-150 


8-178 

8-182 

8-185 

8-188 

8-191 

8-194 


8-236 

8-239 

8-242 

8-245 

8-248 

8-251 


SEQ 0302 


8-24 

8-27 

8-30 

8-33 

8-36 

8-39 

8-42 

8-45 

8-66 

8-69 

8-72 

8-75 

8-78 

8-81 

8-84 

8-87 

8-108 

8-111 

8-114 

8-117 

8-120 

8-123 

8-126 

8-130 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

8-197 

8-200 

8-203 

8-206 

8-209 

8-212 

8-215 

8-218 

8-254 

8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 

8-296 

8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-338 

8-341 

8-344 

8-347 

8-354 

8-357 

8-360 

8-363 

8-384 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

8-435 

8-438 

8-441 

8-444 

8-450 

8-453 

8-456 

8-459 

8-531 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-577 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-603 

8-624 

8-627 

8-630 

8-633 

8-636 

8-639 

8-642 

8-645 

8-666 

8-669 

8-672 

8-675 

8-678 

8-693 

8-696 

8-702 


8-24 

8-27 

8-30 

8-33 

8-36 

8-39 

8-42 

8-45 

8-66 

8-69 

8-72 

8-75 

8-78 

8-81 

8-84 

8-87 

8-108 

8-111 

8-114 

8-117 

8-120 

8-123 

8-126 

8-130 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 

8-172 

8-175 

8-197 

8-200 

8-203 

8-206 

8-209 

8-212 

8-215 

8-218 

8-254 

8-257 

8-260 

8-263 

3-266 

8-269 

8-272 

8-275 


i 


G 8 
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8-278 

8-281 

8-284 

8-287 

8-29C 

8-293 

8-296 


8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 


8-366 

8-369 

8-372 

8-375 

8-378 

8-381 

8-384 


8-411 

8-414 

8-417 

8-420 

8-423 

8-432 

8-435 


8-504 

8-507 

8-510 

8-519 

8-522 

8-525 

8-531 


8-556 

8-559 

8-563 

8-566 

8-569 

3-573 

8-577 


8-606 

8-609 

8-612 

8-615 

8-618 

8-621 

8-624 


8-648 

8-651 

8-654 

8-657 

8-660 

8—663 

8—666 


8-705 

8-708 

8-711 

8-714 

8-723 

54-1# 


EHT110 

8-221 

54-4# 






EHT111 

8-224 

8-227 

54-5# 





EHT114 

54-7# 







EHT2 

8-426 

8-429 

8-513 

8-516 

54-2# 



EHT223 

8-447 

54-8# 






EHT256 

8-528 

54-9# 






EHT336 

8-351 

8-681 

8-687 

8-690 

54-11# 



EHT337 

8-684 

54-12# 






EHT344 

8-699 

54-13# 






EHT353 

8-720 

54-15# 






ENS1 

53-3 

57-3# 






ENSIO 

53-7 

53-11 

57-10# 





ENS 100 

53-39 

53-71 

53-176 

53-196 

57-66# 



ENS101 

53-40 

53-59 

53-174 

53-197 

57-67# 



E NS 102 

53-177 

53-178 

53-181 

53-182 

53-183 

53-184 

53-186 

ENS103 

53-56 

53-57 

53-135 

53-141 

53-196 

53-197 

53-198 


53-210 

53-211 

53-213 

53-214 

53-215 

53-219 

53-220 

ENS104 

53-136 

53-180 

53-203 

57-70# 




ENS105 

53-204 

57-71# 






ENS106 

53-212 

53-232 

57-72# 





ENS11 

53-12 

53-15 

53-16 

53-17 

53-18 

53-19 

53-20 


53-28 

53-29 

53-30 

53-31 

53-32 

53-33 

53-43 

EHS110 

53-9 

53-74 

53-77 

57-73# 




ENS111 

53-74 

53-226 

57-74# 





ENS112 

53-74 

57-75# 






ENS113 

53-75 

53-76 

53-127 

57-77# 




ensih 

53-77 

57-78# 






ENS115 

53-44 

53-45 

53-48 

55-50 

53-51 

53-52 

53-54 


53-73 

53-77 

53-107 

53-108 

53-109 

53-110 

53-134 


53-179 

53-182 

53-183 

53-185 

53-186 

53-187 

53-188 


53-205 

53-221 

53-222 

53-223 

53-232 

53-234 

57- 7 9# 

ENS116 

53-74 

53-77 

53-191 

53-225 

57-80# 



ENS117 

53-77 

53-143 

53-148 

53-149 

53-150 

53-178 

53-185 

ENS12 

53-12 

57-12# 






ENS120 

57-82# 







ENS121 

53-79 

53-88 

53-97 

53-99 

57-83# 



ENS 122 

53-80 

53-89 

57-84# 





ENS123 

53-81 

53-88 

53-89 

53-90 

53-90 

53-91 

53-92 

ENS124 

53-56 

53-82 

53-91 

53-101 

57-86# 



ENS125 

53-83 

53-92 

53-102 

53-169 

57-87# 



ENS 126 

53-84 

53-93 

53-103 

57-88# 




ENS127 

57-89# 







ENS13 

53-13 

53-42 

53-216 

57-13# 




ENS 130 

53-86 

53-95 

53-106 

57-90# 




ENS131 

53-87 

53-96 

53-104 

57-91# 




ENS1 32 

53-79 

53-80 

53-81 

53-82 

53-83 

53-84 

53-85 


53-93 

53-94 

53-95 

53-96 

53-97 

53-98 

53-99 


SEQ 0303 


8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-341 

8-344 

8-347 

8-354 

8-357 

8-360 

8-363 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

£-438 

8-441 

8-444 

8-450 

8-453 

8-456 

8-459 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-603 

8-627 

8-630 

8-633 

8-636 

8-639 

8-642 

8-645 

8-o69 

8-672 

8-675 

8-678 

8-693 

8-696 

8-702 


53-187 

53-203 

57-69# 

53-188 

53-204 

53-189 

53-205 

53-234 

53-206 

53-235 

53-207 

57-68# 

53-208 

53-209 

53-21 

53-152 

53-22 

53-177 

53-23 

57-11# 

53-24 

53-25 

53-26 

53-27 

53-55 

53-137 

53-189 

53-60 

53-139 

53-190 

53-61 

53-140 

53-192 

53-63 

53-142 

53-193 

53-66 

53-150 

53-194 

53-67 

53-151 

53-195 

53-70 

53-153 

53-201 

53-201 

53-225 

53-228 

53-229 

53-230 

53-231 

57-81# 

53-93 

53-94 

53-95 

53-96 

53-98 

53-126 

57-85# 

53-86 

53-100 

53-87 

53-101 

53-88 

53-102 

53-89 

53-103 

53-90 

53-104 

53-91 

53-105 

53-92 

53-106 
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EWS133 

EWS134 

EMS135 

ENS136 

ENS137 

4 

EMS140 

EMS141 

FMS142 

EMS143 

EMS144 

ENS145 

EMS146 

EMS147 

5 

50 


SI 53 
SI 54 
S155 

56 

57 
6 

60 
61 
62 




53-125 

53-79 

53-88 

53-97 

53-99 

53-85 

53-13 

53-44 

53-35 

53-47 

53-47 

53-36 

53-36 

53-109 

53-69 

53-13 

53-50 

57-106# 

53-69 

53-50 

53-111 

53-111 

53-112 

53-113 

53-113 

53-13 

53-114 

53-114 

57-116# 

53-58 

53-72 

53-45 

53-56 

53-142 

53-8 

53-14 

53-9 

53-57 

53-215 

53-214 

53-216 

53-216 

57-129# 

53-127 

53-4 

53-34 

53-128 

53-128 

53-122 

53-122 

53-131 

53-55 

53-55 

53-168 

53-15 

53-169 


53-126 

53-80 

53-89 

53-98 

53-100 

53-94 

57-14# 

53-52 

53-44 

53-65 

53-65 

53-73 

53-73 

53-185 

53-112 

53-42 

53-51 

53-112 

53-51 

57-109# 

53-112 

53-124 

53-114 

53-123 

57-16# 

53-115 

57-115# 

53-59 

53-73 

57-118# 

53-57 

57-121# 

53-49 

57-17# 

57-123# 

53-105 

57-125# 

57-126# 

57-127# 

53-217 

57-130# 

53-5 

53-53 

57-131# 

57-132# 

53-130 

53-130 

57-135# 

53-142 

53-142 

53-170 

57-19# 

53-170 


53-168 

53-81 

53-90 

57-95# 

53-101 

53-100 


53-169 

53-82 

53-91 

53-102 

57-97# 




53 
53 
53-108 
53 


53-107 
53-60 
53-140 
53-108 
53-110 
53-110 
53-201 
53-173 
57-15# 
53-63 


57-92# 

53-83 

53-92 


53-84 

53-93 


53-85 

53-94 


53-103 53-104 53-105 


53-117 
53-61 
53-184 
53-109 
53-205 
53-205 
57-104# 
53-217 

53-67 


SEQ 0304 



55S5SS&&SS&S 
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EHS211 

53-170 

57-140# 






EHS212 

53-171 

53-172 

57-141# 





ENS213 

53-171 

57-142# 






EHS214 

53-55 

57-143# 






EMS215 

53-236 

57-144# 






ENS216 

53-237 

57-145# 






EMS217 

53-237 

57-146# 






ENS22 

53-16 

57-20# 






ENS220 

53-179 

57-147# 






EHS221 

53-231 

53-238 

57-148# 





EHS222 

53-233 

57-149# 






EMS223 

53-232 

57-150# 






EMS224 

53-121 

57-151# 






EMS225 

53-53 

53-150 

53-151 

53-153 

57-152# 



ENS226 

53-53 

53-150 

53-153 

•57-153# 




EMS227 

53-151 

57-154# 






EHS23 

53-17 

57-21# 






EMS230 

53-151 

53-152 

53-153 

57-155# 




EMS231 

53-151 

57-156# 






EMS232 

57-157# 







EMS24 

53-18 

57-22# 






ENS25 

53-19 

53-115 

57-23# 





ENS26 

53-20 

53-116 

53-173 

57-24# 




EMS27 

53-16 

53-19 

53-20 

53-115 

53-116 

53-173 

57-25# 

EMS3 

53-4 

53-76 

57-5# 





EHS30 

53-17 

53-18 

53-21 

53-22 

53-23 

53-24 

53-25 


53-33 

53-43 

53-122 

53-130 

53-131 

53-132 

53-133 


53-176 

53-177 

53-199 

57-26# 




EMS31 

53-21 

53-146 

53-207 

53-208 

57-27# 



EMS32 

53-22 

57-28# 






EMS33 

53-23 

53-219 

57-29# 





ENS34 

53-24 

53-225 

53-226 

53-227 

57-30# 



EMS35 

53-25 

53-216 

57-31# 





EHS36 

53-26 

53-213 

53-214 

53-215 

57-32# 



EMS37 

53-27 

57-33# 






ENS4 

53-5 

53-75 

57-6# 





EMS40 

53-28 

53-220 

57-34# 





EMS41 

53-29 

53-190 

53-191 

57-35# 




EMS42 

53-30 

53-206 

57-36# 





EHS43 

53-31 

53-209 

57-37# 





ENS44 

53-32 

53-211 

53-230 

57-38# 




ENS45 

53-33 

53-210 

53-229 

57-39# 




EMS46 

53-43 

53-58 

53-120 

53-145 

53-177 

53-185 

53-199 

EHS47 

53-37 

53-44 

53-45 

53-52 

53-60 

53-61 

53-66 


53-193 

53-222 

57-41# 





EHS5 

53-6 

53-7 

57-7# 





EMS50 

53-46 

53-48 

53-64 

53-70 

53-132 

53-135 

53-139 


57-42# 







ENS51 

53-48 

53-55 

53-70 

53-130 

53-139 

53-142 

53-179 

ENS52 

53-55 

53-142 

53-143 

53-148 

53-149 

53-150 

53-178 


53-233 

57-44# 






EHS53 

53-37 

53-38 

53-39 

53-40 

53-44 

53-45 

53-46 


53-181 

53-182 

53-184 

53-186 

53-187 

53-190 

53-191 


53-204 

53-206 

53-207 

53-216 

53-218 

53-219 

53-220 

EMS54 

53-226 

57-46# 






ENS55 

53-227 

57-47# 







SEQ 0305 


53-26 

53-144 

53-27 

53-145 

53-28 

53-146 

53-29 

53-147 

53-30 

53-152 

53-31 

53-174 

53-32 

53-175 

53-201 

53-117 

57-40# 

53-118 

53-147 

53-186 

53-187 

53-188 

53-192 

53-141 

53-181 

53-185 

53-189 

53-200 

53-201 

53-221 

53-189 

53-179 

53-221 

53-185 

57-43# 

53-201 

53-228 

53-229 

53-230 

53-231 

53-47 

53-192 

53-226 

53-62 

53-193 

57-45# 

53-64 

53-194 

53-65 

53-195 

53-73 

53-200 

53-140 

53-202 

53-141 

53-203 


J 
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EMS56 

53-50 

53-51 

53-54 

53-62 

53-63 

53-67 

53-119 


53-223 

53-228 

53-234 

57-48# 




EMS57 

53-151 

53-190 

53-191 

53-192 

53-193 

53-194 

53-195 


53-203 

53-204 

53-205 

53-206 

53-207 

53-208 

53-209 


53-222 

53-223 

53-228 

53-229 

53-230 

57-49# 


EMS6 

53-6 

57-8# 






EMS60 

53-224 

57-50# 






EMS61 

53-224 

57-51# 






EMS62 

53-224 

57-52# 






EHS63 

53-42 

53-149 

53-190 

57-53# 




EMS64 

53-8 

53-14 

53-41 

53-144 

53-145 

53-146 

53-147 

EHS65 

53-41 

57-55# 






ENS66 

53-34 

53-218 

57-56# 





EHS67 

53-43 

53-44 

53-45 

53-46 

53-47 

53-48 

53-49 

EMS7 

53-10 

57-9# 






EHS70 

53-48 

53-50 

53-52 

53-54 

53-66 

53-70 

53-73 


53-221 

57-58# 






EHS71 

53-51 

53-59 

53-63 

53-183 

53-195 

53-208 

57-59# 

EHS 72 

53-36 

53-48 

53-51 

53-55 

53-56 

53-57 

53-60 


53-139 

53-140 

53-142 

53-153 

53-179 

53-183 

53-187 

EMS73 

53-49 

53-54 

53-67 

53-68 

53-136 

53-180 

53-188 

EMS74 

53-69 

53-70 

53-134 

53-189 

53-217 

53-221 

57-62# 

EMS75 

53-35 

53-66 

53-67 

53-137 

53-138 

53-188 

53-222 

EMS76 

53-35 

53-36 

53-37 

53-38 

53-39 

53-40 

57-64# 

EMS77 

53-38 

53-72 

53-148 

53-198 

57-65# 



EMT1 

8-3 

53-3# 






EMTIO 

8-24 

53-10# 






ENT 100 

8-197 

53-66# 






ENT101 

8-200 

53-67# 






ENT102 

8-203 

55-68# 






ENT103 

8-206 

53-69# 






ENT 104 

8-209 

53-70# 






ENT105 

8-212 

53-71# 






EMT106 

8-215 

53-72# 






ENT107 

8-218 

53-73# 






ENT11 

8-27 

53-11# 






EMT110 

8-221 

53-74# 






EHT111 

8-224 

53-75# 






EHT112 

8-227 

53-76# 






EMT113 

8-230 

53-77# 






EMT114 

53-78# 







EMT115 

8-236 

53-79# 






EMT116 

8-239 

53-80# 






EMT117 

8-242 

53-81# 






EMT12 

8-30 

53-12# 






EMT120 

8-245 

53-82# 






EMT121 

8-248 

53-83# 






EMT122 

8-251 

53-84# 






EMT123 

8-254 

53-85# 






EMT 124 

8-257 

53-86# 






EMT125 

8-260 

53-87# 






EMT126 

8-263 

53-88# 






EHT127 

8-266 

53-89# 






EMT13 

8-33 

53-13# 






EMT130 

8-269 

53-90# 






EHT131 

8-272 

53-91# 







SEQ 0306 


53-143 

53-144 

53-17? 

53-182 

53-183 

53-194 

53-195 

53-196 

53-210 

53-197 

53-211 

53-198 

53-213 

53-199 

53-214 

53-200 

53-215 

53-201 

53-220 

53-202 

53-221 


53-199 

57-54# 






53-50 

53-51 

53-52 

53-54 

57-57# 



53-107 

53-110 

53-139 

53-182 

53-189 

53-194 

53-205 

53-61 

53-193 

53-222 

53-61 

53-195 

53-223 

53-63 

53-232 

53-234 

53-108 

57-60# 

53-235 

53-109 

57-61# 

53-134 

53-135 

53-223 

53-234 

57-63# 






SN 

SS 

SS 

SS 

SS 

SS 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

SU 

SU 

SU 

su 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 

SU 


l 
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SEQ 0307 


ENT132 

ENT133 

ENT 134 

EMT135 

EMT136 

EMT137 

ENT14 

ENT 140 

ENT1 .1 

ENT142 

ENT143 

ENT144 

EMT145 

EMT146 

ENT147 

ENT15 

ENT150 

EMT151 

ENT152 

EHT153 

EMT154 

ENT155 

EMT156 

ENT157 

ENT16 

ENT 160 

ENT161 

ENT162 

ENT163 

ENT164 

ENT165 

ENT 166 

ENT167 

ENT17 

ENT1 70 

ENT171 

ENT 172 

ENT173 

ENT174 

ENT175 

ENT176 

ENT177 

ENT2 

ENT20 

ENT200 

ENT201 

ENT202 

ENT203 

EMT204 

EMT205 

EMT206 

ENT207 

ENT21 

ENT210 

ENT21 1 

ENT212 


8-275 

8-278 


8-281 

8-284 

8-287 

8-290 

8-36 

8-293 

8-296 

8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-39 

8-317 

8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 

8-42 

8-341 

8-344 

8-347 

53-117# 

8-354 

8-357 

8-360 

8-363 

8-45 

8-366 

8-369 

8-372 

8-375 

8-378 

8-381 

8-384 

53-129# 

8-6 

8-48 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

1-411 

8-51 

$-414 

8-417 

8-420 


53-92# 

53-93# 

53-94# 

53-95# 

53-96# 

53-97# 

53-14# 

53-98# 

53-99# 

53-100# 

53-101# 

53-102# 

53-103# 

53-104# 

53-105# 

53-15# 

53-106# 

53-107# 

53-108# 

53-109# 

53-110# 

53-111# 

53-112# 

53-113# 

53-16# 

53-114# 

53-115# 

53-116# 

53-118# 

53-119# 

53-120# 

53-121# 

53-17# 

53-122# 

53-123# 

53-124# 

53-125# 

53-126# 

53-127# 

53-128# 

53-4# 

53-18# 

53-130# 

53-131# 

53-132# 

53-133# 

53-134# 

53-135# 

53-136# 

53-137# 

53-19# 

53-138# 

53-139# 

53-140# 
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EMT213 

EMT214 

ENT215 

EMT216 

EHT21 7 

EMT22 

EMT220 

EMT 221 

EMT222 

EMT223 

EMT224 

EMT225 

EMT226 

EMT227 

EMT23 

EMT230 

EMT231 

EMT232 

EMT233 

EMT234 

EMT235 

EMT236 

EMT237 

EMT24 

EMT240 

EMT241 

EMT242 

EMT243 

EMT244 

EMT245 

EMT246 

EMT247 

EMT25 

EMT250 

ENT251 

EMT252 

EMT253 

EMT254 

EMT255 

EMT256 

EMT257 

EMT26 

EMT260 

EHT261 

EMT262 

EMT263 

EMT264 

EMT265 

EMT266 

EMT267 

EMT27 

EMT270 

EMT271 

EMT272 

EMT273 

EMT274 


8-423 

8-426 

8-429 

8-432 

8-435 

8-54 

8-438 

8-441 

8-444 

8-447 

8-450 

8-453 

8-456 

8-459 

8-57 

8-462 

8-465 

8-468 

8-471 

53-158# 

53-159# 

53-160# 

53-161# 

8-60 

53-162# 

53-163# 

53-164# 

53-165# 

53-166# 

53-167# 

8-504 

8-507 

8-63 

8-510 

8-513 

8-516 

8-519 

8-522 

8-525 

8-528 

8-531 

8-66 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-552 

8-556 

8-69 

8-559 

8-563 

8-566 

8-569 

8-573 


53-141# 

53-142# 

53-143# 

53-144# 

53-145# 

53-20# 

53-146# 

53-147# 

53-148# 

53-149# 

53-150# 

53-151# 

53-152# 

53-153# 

53-21# 

53-154# 

53-155# 

53-156# 

53-157# 


53-22# 


53-168# 

53-169# 

53-23# 

53-170# 

53-171# 

53-172# 

53-173# 

53-174# 

53-175# 

53-176# 

53-177# 

53-24# 

53-178# 

53-179# 

53-180# 

53-181# 

53-182# 

53-183# 

53-184# 

53-185# 

53-25# 

53-186# 

53-187# 

53-188# 

53-189# 

53-190# 
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SEQ 0308 
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EMT275 

EMT276 

EMT277 

EMT3 

EHT30 

EMT300 

EMT301 

EMT302 

EMT303 

EMT304 

ENT 305 

EMT306 

EMT307 

EMT31 

EMT310 

EMT311 

EMT312 

EMT313 

EMT314 

EMT315 

EMT316 

EMT317 

EMT32 

EMT320 

EMT321 

EMT322 

EMT323 

EMT324 

EMT325 

EMT326 

EMT327 

EMT33 

EMT330 

EMT331 

EMT332 

EMT333 

EMT334 

EMT335 

EMT336 

EMT337 

EMT34 

EMT340 

EMT341 

EMT342 

ENT 34 3 

EMT344 

EMT345 

EMT346 

EMT347 

EMT35 

EMT350 

EMT351 

EMT352 

EMT353 

EMT354 

EMT36 


8-577 

8-581 

8-586 

3-9 

8-72 

8-590 

8-594 

8-597 

8-600 

8-603 

8-606 

8-609 

8-612 

8-75 

8-615 

8-618 

8-621 

8-624 

8-627 

8-630 

8-633 

8-636 

8-78 

8-639 

8-642 

8-645 

8-648 

8-651 

8-654 

8-657 

8-660 

8-81 

8-663 

8-666 

8-669 

8-672 

8-675 

8-678 

8-351 

8-684 

8-84 

8-687 

8-690 

8-693 

8-696 

8-699 

8-702 

8-705 

8-708 

8-87 

8-711 

8-714 

8-717 

8-720 

8-723 

8-90 


53-191# 

53-192# 

53-193# 

53-5# 

53-26# 

53-194# 

53-195# 

53-196# 

53-197# 

53-198# 

53-199# 

53-200# 

53-201# 

53-27# 

53-202# 

53-203# 

53-204# 

53-205# 

53-206# 

53-207# 

53-208# 

53-209# 

53-28# 

53-210# 

53-211# 

53-212# 

53-213# 

53-214# 

53-215# 

53-216# 

53-217# 

53-29# 

53-218# 

53-219# 

53-220# 

53-221# 

53-222# 

53-223# 

8-681 

53-225# 

53-30# 

53-226# 

53-227# 

53-228# 

53-229# 

53-230# 

53-231# 

53-232# 

53-233# 

53-31# 

53-234# 

53-235# 

53-236# 

53-237# 

53-238# 

53-32# 


53-224# 


1 8 


SEO 0309 


C2 

CB’ 


St 

II 

ss« 

is. 
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EMT37 

8-93 

53-33# 






EMT4 

8-12 

53-6# 






EMT40 

8-96 

53-34# 






EMT41 

8-99 

53-35# 






EHT42 

8-102 

53-36# 






EHT43 

8-105 

53-37# 






EMT44 

8-108 

53-38# 






EMT45 

8-111 

53-39# 






EMT46 

8-114 

53-40# 






EMT47 

8-117 

53-41# 






EMT5 

8-15 

53-7# 






EMT50 

8-120 

53-42# 






EMT51 

8-123 

53-43# 






EMT52 

8-126 

53-44# 






EMT53 

8-130 

53-45# 






EMT54 

8-133 

53-46# 






EMT55 

8-136 

53-47# 






EMT56 

8-139 

53-48# 






EMT57 

8-142 

53-49# 






EMT6 

8-18 

53-8# 






EMT60 

8-146 

53-50# 






EMT61 

8-150 

53-51# 






EMT62 

8-154 

53-52# 






EMT63 

8-157 

53-53# 






EMT64 

8-160 

53-54# 






EMT65 

8-163 

53-55# 






EMT66 

8-166 

53-56# 






EMT67 

8-169 

53-57# 






EMT7 

8-21 

53-9# 






EMT70 

8-172 

53-58# 






EMT71 

8-175 

53-59# 






EMT72 

8-178 

53-60# 






EMT73 

8-182 

53-61# 






EMT74 

8-185 

53-62# 






EMT75 

8-188 

53-63# 






EMT76 

8-191 

53-64# 






EMT77 

8-194 

53-65# 






EMTVEC 

4-492# 

10-23* 

10-23* 





ENRGDT 

52-144# 







EQUALS 

49-4# 







ERR 

4-560# 

25-80 

25-82 

25-98 

25-132 



ERRNMB 

43-40* 

43-41* 

43-44 

43-49 

43-56 

43-152# 



4-492# 







ERRTYP 

42-1 

43-13# 






ERRVEC 

4-492# 

10-23 

10-23* 

10-23* 

10-25* 

10-26* 

13-5 


20-35 

20-35 

20-39* 

20-40* 

20-70* 

20-70* 

21-29 


22-4* 

22-5* 

22-11* 

22-18* 

22-18* 

23-9 

23-9 


27-22* 

27-51* 

27-51* 

29-12 

29-12 

29-13* 

29-14* 


41-1* 

41-1* 

42-1 

42-1* 

42-1* 



ERTYOO 

43-21 

43-157# 






ERTY01 

43-38 

43-158# 






ERTY02 

43-43 

43-159# 






ERTY03 

43-45 

43-160# 






ERTY04 

43-144 

43-161# 






ERTY05 

43-31 

43-162# 







4-632# 








SEQ 0310 


C( 

El 

El 


13-5 

21-29 

23-10* 

29-25* 


13-6* 

21-33* 

23-11* 

29-25* 


13-7* 

21-34* 

23-31* 

41-1 


13-20* 13-20* 13-24* 

21-63* 21-63* 22-3 

23-31* 27-20 27-20 

41-1 41-1* 41-1* 


13-24* 

22-3 

27-21* 

41-1* 


E! 

Gi 

GE 

GE 

Mi 

Ml 

NE 

M 

P( 


PI 


Pt 

RE 

R( 

SE 

SE 

Si 
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FO 

4-503# 

25-28 






FI 

4-502# 

25-28 






F2 

4-501# 

25-28 

25-675 





F3 

4-500# 

25-28 






F4 

4-499# 

25-28 






FER 

4-584# 

4-590 

13-A40 

13-A45 

13-648 

13-653 

13-C92 


34-372 

34-395 

34-398 





FIND 

13-41 

13-41# 

13-41# 

13-52 

13-52# 

13-52# 

13-68 


13-76# 

13-76# 

13-80 

13-80# 

13-80# 

13-93 

13-93# 


13-115# 

13-118 

13-118# 

13-118# 

13-122 

13-122# 

13-122# 


13-139# 

13-167# 

13-199# 

13-227# 

13-269 

13-301# 

13-317 

13-361 

13-401 

13-414# 

13-451# 

13-515# 

13-545# 

13-588 

13-621# 

13-637 

13-681# 

13-724 

13-733# 

13-773# 

13-797# 

13-S34# 

13-877 

13-899# 

13-930 

13-:06# 

13-:55 

13-:69# 

13-;04# 

13-;31# 

13-;69# 

13-.-99 

13— <31 

13— <53# 

13-<86 

13-<99 

13-=56# 

13-=86# 

13— >16# 

1 3->43# 

13->64 

13-724# 

13-765 

13-784# 

13-844 

13-883# 


13-139# 

13-169 

13-199# 

13-240 

13-269# 

13-304 

13-317# 

13-361# 

13-401# 

13-414# 

13-455 

13-515# 

13-559 

13-588# 

13-624 

13-637# 

13-684 

13-724# 

13-738# 

13-776 

13-797# 

13-838 

13-877# 

13-914 

13-930# 

13-:09 

13-.-55# 

1 3— : 69# 

13-;07 

13— ;31# 

13—; 73 

13-;99# 

13— <31# 

13— <56 

13-<86# 

13-<99# 

13— =56# 

13-=95 

13— >16# 

1 3— >46 

13->64# 

13-724# 

13-765# 

13-784# 

13-844# 

13-883# 


13-155 

13-169# 

13-215 

13-240# 

13-269# 

13-304# 

13-317# 

13-364 

13-403 

13-428 

13-455# 

13-533 

13-559# 

13-568$ 

13-624# 

13-637# 

13-684# 

13-724# 

13-740 

13-776# 

13-808 

13-838# 

13-877# 

13-914# 

13-930# 

1 3— : 09# 

13-.-55# 

13—: 71 

13-.-07# 

13-;43 

13-;73# 

13-;99# 

13— <31# 

13-<56# 

13-<89 

13-<99# 

13-=60 

13-=95# 

13— >19 

13->46# 

13->64# 

13-733 

13-765# 

13-766 

13-846 

13-886 


13-155# 

13-169# 

13-215# 

13-240# 

13-271 

13-306 

13-330 

13-364# 

13-403# 

13-428# 

13-455# 

13-533# 

13-559# 

13-590 

13-426 

13-639 

13-686 

13-727 

13-740# 

13-776# 

13-808# 

13-838# 

13-881 

13-914# 

13-960 

13— : 1 1 

13-.-58 

13-.-71# 

13-.-07# 

13— ;43# 

13-;73# 

13-<03 

13-<33 

13— <58 

13-<89# 

13— =33 

13- =60# 

13- =95# 

13— >19# 

13— >48 

13->98 

13-733# 

13-768 

13-786# 

13-846# 

13-886# 


13-155# 

13-171 

13-215# 

13-257 

13-271# 

13-306# 

13-330# 

13-364# 

13-406 

13-428# 

13-460 

13-533# 

13-576 

13-590# 

13-626# 

13-639# 

13-686# 

13-727# 

13-740# 

13-780 

13-808# 

13-852 

13-181# 

13-917 

13-960# 

1 3 — : 1 1 # 

13-:58# 

13— ; 71# 

13—; 1 1 

13-.-43# 

13-;86 

13- <03# 

13-<33# 

13-<58# 

13-<89# 

13-=33# 

13-=60# 

13-=97 

13— >21 

13->48# 

13->98# 

13-733# 

13-768# 

13-786# 

13-849 

13-888 


13-158 

13-171# 

13-218 

13-257# 

13-271# 

13-309 

13-330# 

13-368 

13-406# 

13-443 

13-460# 

13-536 

13-576# 

13-590# 

13-629 

13-639# 

13-689 

13-729 

13-753 

13-780# 

13-826 

13-852# 

13-881# 

13-917# 

13-960# 

13—: 1 4 

13-:60 

13-.-84 

13—; 1 1# 

13— ;61 

13-;86# 

13-<03# 

13-<33# 

13— <61 

13-<93 

13-=33# 

13-=78 

13— =97# 

13— >21# 

1 3 — > 5 1 

13->98# 

13-735 

13-770 

13-806 

13-849# 

13-888# 


13-158# 

13-171# 

13-218# 

13-257# 

13-273 

13-309# 

13-341 

13-368# 

13-406# 

13-443# 

13-460# 

13-536# 

13-576# 

13-592 

13-629# 

13*652 

13-689# 

13-729# 

13-753# 

13-780# 

13-826# 

13-852# 

13-883 

13-919 

13-985 

1 3— : 1 4# 

13-:60# 

13-:84# 

1 3—; 1 1# 

13— ;61# 

13— ;86# 

13— <21 

13~<35 

1 3— <61# 

13-<93# 

1 3— =48 

13-=78# 

13-=97# 

1 3->24 

13->51# 

13-716 

13-735# 

13-770# 

13-806# 

13-849# 

13-891 


9 


SEQ 0311 


13-C95 13-D58 13-D61 16-221 25-412 34-352 34-369 


13-68# 

13-93# 

13-124 

13-160 

13-175 

13-220 

13-260 

13-273# 

13-309# 

'3-341# 

13-368# 

13-410 

13-443# 

13-488 

13-538 

13-579 

13-592# 

13-62*1# 

13-65-# 

13-689# 

13-732 

13-753# 

13-782 

13-826# 

13-869 

13-883# 

13-919# 

13-985# 

13— : 14# 

13— :63 

1 3— : 84# 

13—; 13 

13— ;61# 

13—; 91 

13— <21# 

13— <35# 

13— <61# 

13-<93# 

13— =48# 

13-= 78# 

13-=99 

13— >24# 

13— >51# 

13-716# 

13-735# 

13-773 

13-806# 

13-853 

13-891# 


13-68# 

13-110 

13-124# 

13-160# 

13-175# 

13-220# 

13-260# 

13-273# 

13-313 

13-341# 

13-381 

13-410# 

13-446 

13-488# 

13-538# 

1 3-579# 

i 3-592# 

13-633 

13-652# 

13-693 

13-732# 

13-768 

13-782# 

13-829 

13-©69# 

13-883# 

13-922 

13-985# 

13— :18 

13— :63# 

1 3— : 99 

1 3—; 13# 

13— ;64 

13— ;91# 

13-<21# 

13— <35# 

13— <65 

1 3— <95 

1 3— =48# 

13— =81 

13-=99# 

13->24# 

13->60 

13-716# 

13-737 

13-773# 

13-817 

13-853# 

13-891# 


13-71 

13-110# 

13-124# 

13-163 

13-175# 

13-223 

13-262 

13-266 

13-313# 

13-356 

13-381# 

13-410# 

13-446# 

13-488# 

13-541 

13-581 

13-605 

13-633# 

13-665 

13-693# 

13-732# 

13-768# 

13-762# 

13-829# 

13-869# 

13-885 

13-922# 

13-96® 

13-:18# 

13-.-63# 

13-.-99# 

13—; 13# 

13— ;64# 

13— ;91# 

13— <24 

13— <48 

1 3— <65# 

13— <95# 

13-= 51 

13— =81# 

13-=99# 

13->?8 

13->60# 

13-719 

13-737# 

13-773# 

13-817# 

13-853# 

13-895 


13-71# 

13-110# 

13-126 

13-163# 

13-188 

13-223# 

13-262# 

13-216# 

13-313# 

13-356# 

13-381# 

13-412 

13-448 

13-504 

13-541# 

13-581# 

13-605# 

13-633# 

13-663# 

13-693# 

13-736 

13-768# 

13-784 

13-831 

13-872 

13-885# 

13-922# 

13-988# 

1 3 - : 1 8 # 

13— :67 

13-.-99# 

13—; 1 5 

13-;66 

13-;94 

1 3— <24# 

13-<48# 

13-<65# 

1 3— <95# 

13— =51# 

13— =83 

13->12 

13->28# 

13->60# 

13-719# 

13-737# 

13-782 

13-817# 

13-866 

13- 895# 


13-73 

13-113 

13-126# 

13-163# 

13-188# 

13-223# 

13-265 

13-286# 

13-315 

13-356# 

13-398 

13-412# 

13-448# 

13-504# 

13-541# 

13-584 

13-605# 

13-635 

13-663# 

13-707 

13-736# 

13-771 

13-784# 

13-831# 

13-872# 

13-885# 

13-926 

13-988# 

13— :40 

13-:67# 

13-;02 

13— ; 1 5# 

13-;66# 

13-;94# 

13— <27 

1 3-<48# 

13-^83 

13-<97 

13— =53 

13-=8S# 

1 3 — > 1 2 # 

1 3— >28# 

1 3->62 

13-721 

13-750 

13-782# 

13-841 

13-866# 

13-895# 


13-73# 

13-113# 

13-126# 

13-167 

13-188# 

13-227 

13-265# 

13-301 

1 3-31 5 * 

13-559 

13-398# 

13-412# 

13-451 

13-504# 

13-545 

13-584# 

13-621 

13-635# 

13-681 

13-707# 

13-736# 

13-771# 

13-784# 

13-834 

13-874 

13-899 

13-926# 

13-:06 

1 3— :40# 

13-:67# 

13-;02# 

1 3—; 1 5# 

13-;69 

13-;96 

13-<27# 

13-<53 

1 3— <83# 

1 3-<97# 

12— =53# 

13- =86 
13- >12# 
13->43 
13->62# 
13-721# 
13-750# 
13-782# 
13-841# 
13-866# 
13-A14 


13-76 

13-115 

13-139 

13-167# 

13-199 

13-227# 

13-265# 

13-301# 

13-315# 

13-359# 

13-398# 

13-414 

13-451# 

13-515 

13-545# 

13-584# 

13-621# 

13-635# 

13-681# 

13-707# 

13-738 

13-773 

13-797 

13-834# 

13-874# 

13-899# 

13-926# 

13-:06# 

13-:40# 

13— :69 

13-;04 

1 3—; 31 

13-;69# 

13-;96# 

13-<27# 

1 3— <53# 

13-<83# 

13-97# 

1 3— =56 

13-=86# 

13->16 

1 3— >43# 

13->62# 

13-724 

13-750# 

13-784 

13-841# 

13-883 

13-A14# 
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13-A14# 

13-A76# 

13-605# 

13-672# 

13-C39# 

13-C80# 

13-D14# 

13-D55 

13-El 1# 

13-E51 

13-E99# 

13-F24 

13-F79 

13-618 

13-640# 

13-685 

13-H24# 

13-H38# 

13-H77 

13-H87# 

13-138 

13-177 

13-J01 

13-J29# 

13-J61 

13-J89# 

13-K30# 

13HC44# 

13-K83# 


13-A30 

13-A76# 

13-622 

13-672# 

13-C42 

13-C82 

13-027 

13-D55# 

13-El 8 

13-E51# 

13-F02 

13-F24# 

13-F79# 

13-618# 

13-640# 

13-685# 

13-H24# 

13-H40 

13-H77# 

13-100 

13-138# 

13-177# 

13-J01# 

13-J29# 

13-261# 

13-J89# 

13-K30# 

13-K46 

13-K91 


13-A30# 

13-A93 

13-622# 

13-697 

13-C42# 

13-C82# 

13-027# 

13-055# 

13-E18# 

13-E51# 

13-F02# 

13-F24# 

13-F82 

13-618# 

13-642 

13-687 

13-H27 

13-H40# 

13-H77# 

13-100# 

13-138# 

13-180 

13-J01# 

13-J31 

13-J61# 

13-K02 

13-K33 

13-K46# 

13-K91# 


13-A30# 

13-A93# 

13-622# 

13-697# 

13-C42# 

13-C85 

13-D27# 

1 3-D 78 

17-E18# 

13-E56 

‘3-F04 

■3-F44 

13-F82# 

13-621 

13-642# 

13-687# 

13-H27# 

13-H40# 

13-H81 

13-100# 

13-142 

13-180# 

13-J17 

13-J31# 

13-J77 

13-K02# 

13-K33# 

13-K46# 

13-K91# 


13-A43 

13-A93# 

13-638 

13-897# 

13-C46 

13-C85# 

13-D43 

13-D78# 

13-E39 

13-E56# 

13-F04# 

13-F44# 

13-F82# 

13-621# 

13-642# 

13-690 

13-H29 

13-H53 

13-H81# 

13-112 

13-142# 

13-180# 

13-J17# 

13-J31# 

13-J77# 

13-K02# 

13-K35 

13-K58 

13-K94 


13-A43# 

13-A96 

13-638# 

1 3— COS 

13-C46# 

13-C85# 

13-D43# 

13-D78# 

13-E39# 

13-E56# 

13-F07 

13-F44# 

13-F84 

13-624 

13-655 

13-690# 

13-H29# 

13-H53# 

13-H81# 

13-112# 

13-142# 

13-184 

13-J17# 

13-J33 

13-J77# 

13— #C14 

1 3— #C35# 

13-K58# 

13-K94# 


13-A43# 

13-A96# 

13-638# 

13-C08# 

13-C46# 

13-C89 

13-D43# 

13-D80 

13-E39# 

13-E64 

13-F07# 

13-F63 

13-F84# 

13-624# 

13-655# 

13-690# 

13-H32 

13-H53# 

13-H83 

13-112# 

13-155 

13-184# 

13-J20 

13-J33# 

13-J80 

1 3— 1C 1 4# 

13-K38 

13-K58# 



13-L05 

13-L05# 

13-L05# 

13-L07 

13-L07# 

13-107# 

13-L26 


13-L54# 

13-L57 

13-L57# 

13-L59 

13-L59# 

13-L61 

13-L61# 

FMT16 

4-657# 

13-49 

13-196 

13-338 

13-512 

13-660 

13-105 


1 j-C05 

13-C64 

13-E08 

13-F39 

13-663 

13-J09 

13-J58 


25-447 

28-59 

34-183 





FNCDT8 

25-126 

25-442 

50-55# 





FNCMSK 

4-505# 

33-17 

34-345 





6EN6UF 

13-56 

13-203 

13-345 

13-519 

13-667 

13-812 

13-992 


13-J65 

13-132 

17-20# 





6ET 

13-76 

13-118 

13-163 

13-223 

13-265 

13-309 

13-364 


13-732 

13-776 

13-834 

13-877 

13-922 

13-941 

1 3— : 1 4 


1 3— =56 

l3-=86 

1 3— >24 

13— >51 

13-724 

13-773 

13-649 


13-F69 

13-F82 

13-G24 

13-G38 

13-690 

13-H32 

13-H77 


15-47 

15-90 

15-114 

15-143 

15-170 

15-201 

16-75 

GETBUF 

7-0# 

20-37 






6ETINX 

7-0# 

13-470* 

13-470* 

13-941* 

13-941* 

19-13 

20-38 

GETSSF 

16-270 

16-444# 






GETSTS 

13-71 

13-113 

13-158 

13-218 

13-260 

13-304 

13-359 


13-771 

13-829 

13-872 

13-917 

13-:09 

13-.-58 

13-;02 


13-719 

13-768 

13-644 

13-686 

13-A96 

13-C37 

13-C80 


13-H72 

13-133 

13-175 

13-J20 

13-J80 

13-K33 

1 3-K94 

GNS 

5-1 

5-1 

10-6 

10-28 

10-42 

10-53 

10-59 


46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 


46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

GO 

4-504# 

13-50 

13-100 

13-145 

13-197 

13-247 

13-291 


13-714 

13-758 

13-806 

13-859 

13-904 

13-982 

1 3— :45 


1 3-=65 

1 3— >14 

1 3— >33 

13-703 

13-755 

13-615 

13-673 


9 


SEQ 0312 


13-A55 

13-A98 

1 3-651 

13-C08# 

13-C59 

13-C89# 

13-D46 

13-D80# 

13-E42 

13-E64# 

13-F07# 

13-F63# 

13-F84# 

13-624# 

13-655# 

13-694 

13-H32# 

13-H69 

13-H83# 

13-130 

13-155# 

13-184# 

13-J20# 

13-J33# 

13-J80# 

13-K14# 

1 3-K38# 

13-K71 

13-K96# 

13-126# 

13-L61# 

13-974 

13-L21 


13-:30 

13-406 

13-:63 

13-691 

13-138 

16-96 


13-401 
13— ;64 
13-D46 
13-157 

12- 30 
46-1 
46-1 

13- 339 
13-.-89 
13-A83 


13-A55# 

13-A98# 

13-851# 

13-C34 

13-C59# 

13-C89# 

13-D46# 

13-D80# 

13-E42# 

13-E64# 

13-F11 

13-F63# 

13-F86 

13-635 

13-666 

13-694# 

13-H32# 

13-H69# 

13-H83# 

13-130# 

13-155# 

13-186 

13-J22 

13-J35 

13-J82 

1 3-K20 

13-K38# 

13-K71# 


13-A55# 

13-801 

13-851# 

13-C34# 

13-C59# 

13-D12 

13-D48 

13-D82 

13-E44 

13-E77 

13-F11# 

13-F66 

13-586# 

13-635# 

13-666# 

13-694# 

13-H36 

13-H69# 

13-H85 

13-130# 

13-172 

13-186# 

13-J22# 

13-235# 

13-J82# 

13-K20# 

13-K42 

13-K71# 


13-A64 

13-801# 

13-663 

13-C34# 

13-C77 

13-D12# 

13-045# 

13-D82# 

13-E44# 

13-E77# 

13-F11# 

13-F66# 

13-F86# 

13-638 

13-666# 

13-H07 

13-H36# 

13-H72 

13-H85# 

13-133 

13-172# 

13-186# 

13-J25 

13-J35# 

13-J85 

13-K20# 

13-K42# 

13-K80 


13-A64# 

13-601A 

13-8*3# 

13-C37 

13-C77# 

13-D12# 

13-D51 

13-D82# 

13-E47 

13-E77# 

13— P 16 

13-F69 

13-F99 

13-638# 

13-682 

13-H07# 

13-H36# 

13-H72# 

13-H85# 

13-133# 

13-172# 

13-188 

13-J25# 

13-J50 

13-J85# 

13HC23 

13-K42# 

13-K80# 


13-A64# 

13-605 

13-663# 

13-C37# 

13-C77# 

13-D14 

13-D51# 

13-E11 

13-E47# 

13-E99 

1 3— F 16# 

13-F69# 

13-F99# 

13-638# 

13-682# 

13-H07# 

13-H38 

13-H74 

13-H87 

13-135 

13-175 

13-188# 

13-J25# 

13-J50# 

13-J85# 

13-K23# 

1 3-K44 


13-A76 

13-605# 

13-672 

13-C39 

13-C80 

13-014# 

13-051# 

13-E11# 

13-E47# 

13-E99# 

13-F16# 

13-F69# 

13-F99# 

13-640 

13-682# 

13-H24 

13-H38# 

13-H74# 

13-H87# 

1 3—* 35# 

13-175# 

13-188# 

13-J29 

13-J50# 

13-J89 

13-K30 

13-K44# 


13-K99 

13-K99# 

13-K99# 

1 3-103 

13-L03# 

13-L03# 

13-126# 

13-L40 

13-L40# 

13-L40# 

13-L54 

13-L54# 

13-L65 

13-L65# 

13-L65# 

13-L67 

13-L67# 

13-167# 

13-;40 

13-= 17 

13->82 

13-814 

13-A04 

13-812 

16-59 

16-274 

16-283 

17-32 

17-34 

18-27 

1 3— ;47 

13-621 

13-C12 

13-E15 

13-G70 

13-116 

13-451 

13-470 

13-541 

13-584 

13-629 

13-689 

13-;07 

13— ;69 

13-;99 

1 3-<27 

1 3— <61 

1 3-<89 

13-&01 

13-C42 

13-C85 

13-D51 

13-E47 

13-F07 

13-180 

13-J25 

13-J85 

13-K38 

13-K99 

13-L61 

16-128 

16-162 

16-191 

20-31# 


13-446 

13-536 

13-579 

13-624 

13-684 

13-727 

1 3-; 94 

1 3— <56 

13— =51 

1 3-=81 

1 3— >19 

1 3->46 

13-142 

13-F02 

13-F66 

13-G21 

13-G85 

13-H27 

15-46 

16-74 

19-10# 




14-20 

14-20 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

13-388 

13-433 

13-513 

13-566 

13-611 

13-661 

13-;41 

1 3—; 89 

13-<11 

1 3-<51 

1 3— <72 

1 3— =37 

13-C06 

13-C66 

13-032 

13-E27 

13-E86 

13-F40 



SEQ 03' l 


13-J07 

24-90 

13-J59 

24-102 

13-K15 

24-107 

13-K25 

24-125 

1 3— <75 
25-47 

13-K86 

25-50 

13-L44 

34-346 

13-C95 

34-385 

13-D58 

34-395 

13-061 

34-398 

16-221 

50-77 

25-375 

50-78 

25-380 

50-81 

25-^95 

50-85 

34-395 

34-398 






32-24 

32-78 

32-81 

34-172 

34-194 

50-59 

50-69 

42-1* 

42-1* 






32-45 

50-76 

32-48 

50-79 

34-128 

50-80 

34-145 

50-83 

34-148 

50-b4 

50-58 

50-87 

50-67 

50-88 


34-128 34-131 34-134 


28-90 

28-213 

32-92 

32-99 

32-102 

32-171 

34-111 

50-63 

50-64 

50-67 

50-68 

50-69 

50-70 

50-71 

50-79 

50-80 

50-81 

50-82 

50-83 

50-84 

50-85 


E 
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50-86 

50-87 

50-88 





LBC 

4-687# 

34-236 

34-254 

34-259 




LBT 

4-564# 

25-354 

25-653 

25-655 




LF 

4-492# 

40-1 

40-1 

43-80 

49-18 

57-79 


LOOEV 

10-117 

49-28# 






LS 

4-641# 

30-80 

33-70 





LSC 

4-686# 

34-236 

34-270 

34-273 




1ST 

4-642# 

30-80 

33-70 





LSTRK 

7-0# 

12-57* 

13->80 

13-790 

13-J38 

13-L77 

16-273 

MCLK 

4-615# 







MCPE 

4-728# 

24-90 

24-107 

24-120 

24-123 

34-27 

34-30 

HDF 

4-620# 







MOPE 

4-744# 

25-481 

34-442 

34-445 




MEDENB 

7-0# 

12-48* 

16-39 

16-291* 




MFGFIL 

16-246 

16-275 

16-330 

16-475* 

61-7# 



Ml 

4-623# 







MIXED 

13-114 

52-4# 






MOC 

4-618# 







MOH 

4-649# 







MOL 

4-562# 

10-98 

28-151 

28-161 

28-162 

28-167 

28-172 


32-158 

33-30 

34-88 

34-256 

34-509 

34-510 

34-532 

MRD 

4-616# 







MS 

4-621# 







MSC 

4-624# 







MSDRVS 

11-64 

49-23# 






MSE 

4-694# 

13-A06 

13-814 

17-29 




MSER 

4-619# 







HSGORV 

12-61 

49-24# 






MSHELP 

11-11 

49-8# 






MUR 

4-617# 







MUD 

4-64C# 

30-81 

33-71 





HUP 

4-622# 







MXF 

4-743# 

25-339 

34-50 

34-63 

34-66 



N 

11-19 

49-35# 






NDTMSK 

4-590# 







NED 

4-740# 

10-87 

24-72 

24-76 

27-31 



NEM 

4-741# 

25-324 






NONE 

12-7 

49-34# 






NOP 

4-508# 







NOTAVL 

10-105 

49-30# 






NOTPRS 

10-102 

49-29# 






NOTRM 

10-96 

49-27# 






NSA 

4-647# 







OCC 

4-628# 







OFD 

4-661# 

13-L09 

1 3— Li 1 





OFFSET 

4-514# 

13-K15 

13-K75 





OM 

4-569# 

32-145 

32-201 

32-204 

33-29 

34-457 

34-460 

ONES 

13-517 

13-665 

13-810 

13-:28 

13— ;45 

13-C10 

52-21# 

OPE 

4-684# 







OP I 

4-575# 

25-178 

28-145 

28-169 

31-51 

31-69 

31-73 


35-42 

50-57 

50-58 

50-59 

50-60 

50-61 

50-62 


50-70 

50-71 

50-72 

50-73 

50-74 

50-75 

50-76 


50-84 

50-85 

50-86 

50-87 

50-88 



OR 

4-745# 







PACACK 

4-518# 

16-118 






PAKACK 

4-517# 

4-518 

15-125 






SEO 03H 



CZRNFAO RM80 FCTNL PT3 NACRO *04. 00 28-JAN-82 16:49:32 PA6E S-24 
CROSS REFERENCE TABLE (CREF V04.00 ) 


PAR 4-585# 24-135 24-139 

PAT 4-748# 

POA 4-635# 

PFECH 43-59 43-164# 

PFECH1 43-164 43-165# 

PFECH2 43-164 43-168# 

PFECH3 43-164 43-171# 

PFECH4 43-164 43-173# 

PGE 4-742# 


PIP 4-561# 13-F71 13-F74 

34-509 34-515 34-520 

PIRQ 4-492# 

PIRQVE 4-492# 

PLFS 4-633# 

PRO 4-492# 

PR1 4-492# 

PR2 4-492# 

PR3 4-492# 41-5 

PR4 4-492# 


PR5 

4-492# 

12-50 

41-9 

PR6 

4-492# 

10-26 

13-7 

PR7 

4-492# 



PR1ERR 

13-122 

13-167 

13-269 


1 3— <31 

13-<93 

13-=95 


13-H36 

13-H81 

13-184 

PS 

4-492 

4-492# 


PSEL 

4-729# 



PSW 

4-492# 



PUT 

13-68 

13-110 

13-155 


13-768 

13-826 

13-869 


1 3— >1 6 

1 3->43 

13-716 


13-F48 

13-F63 

13-G03 


13-K71 

13-K80 

13-K91 

PUTBUF 

7-0# 

16-48 

16-292* 

PUTINX 

7-0# 

13-59 

13-101 


13-715 

13-759 

13-815 


13-707 

13-756 

13-932 


13-F48* 

13-F48* 

13-F54 


13-X16 

13-K26 

13-K63 

PWRVEC 

4-492# 

10-23* 

10-23* 

OUES 

49-6# 



R6 

4-492# 

10-23 

10-23* 

R? 

4-492# 



RCLSTS 

15-209 

16-170 

32-15# 

RO 

4-533# 

13-145 

13-611 


13-K25 



RDCHR 

11-12 

11-65 

11-82 

RDL IN 

45-1 

46-1# 


RDOCT 

11-35 

11-49 

46-1# 

ROY 

4-732# 

23-17 

23-18 

READY 

12-37# 

14-24 


RE CAL 

4-511# 

15-183 

16-152 

RESREG 

43-148 

46-1# 


RESVEC 

4-492# 




24-151 28-30 32-24 32-29 


20-40 

21-34 

22-5 

23-11 

13-313 

13-410 

13-455 

13-588 

13->60 

13-733 

13-782 

13-995 

13-J29 

13-K42 

13-L03 

13-L65 


13-215 

13-257 

13-301 

13-356 

13-914 

1 3- : 06 

13— :55 

13-:99 

13-765 

13-941 

13-983 

13-A93 

13-G18 

13-Ge2 

13-H24 

13-M69 

13-L54 

15-128 

15-186 

16-87 

21-31 




13-146 

13-206 

13-248 

13-292 

13-360 

13-905 

13-995 

l3-:46 

13-974 

13-A84 

13-C23 

13-C68 

13-G03* 

13-G03* 

13-G09 

13-G73 

13-K76 

13-K87 

13-L45 

15-126* 

47-1* 

47-1* 

47-1* 

47-1* 

10-23* 




1 3— <72 

13— =22 

13— =65 

1 3->87 

44-1 

46-1# 



24-86 

24-89 

30-31 



ScQ 0315 
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V 


SEO 0316 


REX 

4-631# 














RG 

4-629# 














RGOTPT 

52-3# 














RH 

4-534# 

16-181 













RIP 

4-516# 














RLEASE 

4-513# 














RMAS 

4-704# 














RMAS1 

7-0# 

33-50 

59-13 












RMASO 

7-0# 














RMBA 

4-776# 

13-12* 

13-13 

13-62 

13-105 

13-150 

13-209 

13-252 

13-296 

13-350 

13-393 

13-438 

13-525 

13-571 


13-616 

13-673 

13-719 

13-763 

13-818 

13-864 

13-909 

13-998 

13-.-50 

1 3- : 94 

13-;53 

1 3— <1 6 

13-<78 

1 3— =41 


1 3-=73 

1 3— >38 

13-711 

13-760 

13-835 

13-878 

13-A88 

13-C26 

13-C72 

13-038 

13-E35 

13-E94 

13-F58 

13-G13 


13-G76 

13-H19 

13-H64 

13-122 

13-167 

13-J12 

13-J71 

13-K10 

13-K67 

13-L50 

16-67 




RNBAE 

4-779# 














RMBAEI 

7-0# 














RHBAEO 

7-0# 














RMBA I 

7-0# 

13-476 

13-948 

25-560 

25-562 

30-42 

59-14 








RMBAO 

7-0# 

13-47* 

13-98* 

13-144* 

13-194* 

13-245* 

13-336* 

13-387* 

13-510* 

13-564* 

13-610* 

13-658* 

13-712* 

13-803* 


13-858* 

13-980* 

13-.-26* 

1 3—; 38* 

13-<10* 

13— <73* 

1 3— =20* 

13— >86* 

13-812* 

13-871* 

13-A81* 

13-C03* 

13-C67* 

13-033* 


13-E06* 

13-E87* 

13-F37* 

13-G61* 

13-H13* 

13-H59* 

13-107* 

13-160* 

13-J06* 

13-J56* 

13-J97* 

13-L23* 

16-60* 

16-246 


16-275* 

16-279 

16-282* 

17-21 

18-31 

25-554 

25-558 








RMCS1 

4-700# 

4-774# 

10-89 

13-9* 

13-65 

13-107 

13-152 

13-212 

13-254 

13-298 

13-353 

13-395 

13-440 

13-528 


13-573 

13-618 

13-676 

13-721 

13-765 

13-821 

13-866 

13-911 

1 3— : 01 

1 3— : 52 

13-.-96 

13-;56 

1 3— <1 8 

13-<80 


1 3-=44 

13--75 

13->40 

13-713 

13-762 

13-838 

13-880 

13-A90 

13-C29 

13-C74 

13-040 

13-E36 

13-E96 

13-F60 


13-G15 

13-G79 

13-H21 

13-H66 

13-125 

13-J69 

13-J14 

13-J74 

13-K17 

13-K27 

13-K77 

13-K88 

13-L51 

15-126 


15-184 

16-68 

20-42 

21-36 

23-16 

27-28 









RMCS1I 

7-0# 

16-208 

24-65 

24-67 

24-69 

24-86 

24-88 

24-91 

24-102 

24-106 

24-108 

24-120 

24-122 

24-124 


25-47 

25-49 

25-60 

25-103 

25-540 

30-29 

33-16 

34-27 

34-29 

34-31 

59-13 




RMCS10 

7-0# 

13-50* 

13-100* 

13-145* 

13-197* 

13-247* 

13-291* 

13-339* 

13-388* 

13-433* 

13-513* 

13-566* 

13-611* 

13-661* 


13-714* 

13-758* 

13-806* 

13-859* 

13-904* 

13-982* 

1 3— :27* 

13-:45* 

13-:89* 

13-.-41* 

13-;89* 

13- <11* 

13— <51 * 

1 3-<72* 


1 3— =22* 

13-=37* 

13-=65* 

1 3— >14* 

1 3— >33* 

13->87* 

13-703* 

13-755* 

13-815* 

13-873* 

13-A83* 

13-C06* 

13-C66* 

13-032* 


13-E09* 

13-E27* 

13-E86* 

13-F40* 

13-F53* 

13-G08* 

13-G64* 

13-H14* 

13-H58* 

13-110* 

13-162* 

13-J07* 

13-J59* 

13-K15* 


13-K25* 

13-K75* 

13-K86* 

13-L24* 

13-L44* 

15-125* 

15-183* 

16-86* 

16-118* 

16-152* 

16-181* 

16-312 

17-26 

25-27 


25-576 

34-324 

34-344 












RMCS2 

4-777# 

10-84* 

10-85* 

10-87 

12-55* 

12-56* 

13-14 

13-15* 

13-16 

13-17* 

20-41 

21-35 

27-27* 

27-29 


29-16* 

29-18* 













RMCS2I 

7-0# 

13-457 

13-462 

13-464 

13-928 

13-932 

13-934 

24-47 

24-72 

24-74 

24-75 

25-95 

25-166 

25-267 


25-310 

25-325 

25-340 

25-482 

25-556 

30-51 

34-50 

34-63 

34-65 

34-67 

34-442 

34-444 

34-446 

34-496 


34-498 

34-500 

59-13 












RMCS20 

7-0# 














RMCS3 

4-780# 














RMCS3I 

7-0# 














RMCS30 

7-0# 














RMOA 

4-701# 

13-61 

13-102 

13-147 

13-208 

13-249 

13-293 

13-349 

13-390 

13-435 

13-524 

13-568 

13-613 

13-672 


13-716 

13-760 

13-817 

13-861 

13-906 

13-997 

13— :47 

1 3— : 91 

1 3—; 52 

13-<13 

1 3— <75 

1 3-=40 

1 3-=70 

1 3->35 


13-708 

13-757 

13-334 

13-875 

13-A85 

13-C25 

15-C69 

13-035 

13-E31 

13-E91 

13-F55 

13-G10 

13-G75 

13-H16 


13-H61 

13-121 

13-164 

13-J09 

13-J70 

13-K07 

13-K64 

13-L46 

16-63 






RMOAI 

7-0# 

25-628 

25-699 

59-14 

59-16 










RMDAO 

7-0# 

13-46* 

13-193* 

13-335* 

13-509* 

13-657* 

13-802* 

13-979* 

13-;37* 

13— =16* 

13->68* 

13->80* 

1 3— >81 * 

13-790* 


13-791* 

i 3-ai i * 

13-C02* 

13-E05* 

13-E13 

13-F36* 

13-G60* 

13-105* 

13-J37* 

13-J38 

13-J55* 

13-L19* 

13-L71* 

13-172 


13-L75* 

13-L76* 

13-177 

13-L80* 

16-57* 

16-233* 

16-238* 

16-241* 

16-242 

16-248 

16-250 

16-273* 

16-281* 

16-307 


16-425* 

17-24 

25-588 

25-389 

25-628 

28-54 

28-57 

28-61 

28-65 

34-178 

34-181 

34-185 

34-189 


RMD6 

4-778# 

13-18* 

13-19 

13-470 

13-941 

19-20 









RMDBI 

7-0# 

13-472 

13-941* 

13-944 











RMD60 

7-0# 














RNDC 

4-710# 

13-60 

13-103 

13-149 

13-207 

13-250 

13-295 

13-348 

13-391 

13-437 

13-523 

13-569 

13-615 

13-671 


H V 
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13-717 

13-762 

13-816 

13-862 

1 3- 908 

13-996 


13-709 

13-759 

13-833 

13-376 

13-A87 

13-C24 


13-H63 

13-120 

13-165 

13-J11 

13-J69 

13-K08 

RflDCI 

7-0# 

25-712 

59-14 

59-16 



RMOCO 

7-0# 

13-45* 

13-192* 

13-334* 

13-508* 

13-656* 


13-= 19* 

13->84* 

13-ilO* 

13-C01* 

13-E04* 

13-F35* 


16-239 

16-268 

16-272* 

16-306 

16-416* 

16-424* 

RMOS 

4-702# 

10-86 

10-98 




RFIDS I 

7-0# 

13-F71 

13-F73 

13-F75 

13-626 

13-628 


25-81 

25-98 

25-132 

25-136 

25-192 

25-219 


28-182 

28-186 

28-188 

28-197 

28-199 

28-201 


31-39 

31-41 

32-68 

32-106 

32-144 

32-153 


32-201 

32-203 

32-205 

32-216 

32-220 

32-222 


34-461 

34-508 

34-515 

34-519 

34-521 

34-532 


35-46 

35-56 

35-60 

35-61* 

35-62 

35-72 

RMDSO 

7-0# 






RNDT 

4-707# 

10-92 

10-94 

43-26 



RMOTI 

7-0# 

59-5 

59-17 




RHDTO 

7-0# 






RMEC1 

4-714# 






RNEC1I 

7-0# 

18-32 

59-14 




RNEC10 

7-0# 






RNEC2 

4-715# 

19-15 





RMEC2I 

7-0# 

18-53 

19-14 

30-92 

33-94 

59-15 

RNEC20 

7-0# 






RMER1 

4-703# 

13-F48 

13-603 

24-143 



RNER1I 

7-0# 

13-A11 

13-A16 

13-A40 

13-A46 

13-819 


18-23 

18-25 

24-135 

24-150 

24-152 

25-76 


25-413 

25-497 

25-516 

25-519 

25-651 

25-667 


28-169 

30-69 

31-51 

31-55 

31-57 

31-58 


31-100 

31-111 

31-113 

31-114 

32-24 

32-29 


32-78 

32-80 

32-82 

32-155 

32-232 

32-236 


33-41 

34-41 

34-45 

34-47 

34-83 

34-85 


34-159 

34-161 

34-163 

34-193 

34-283 

34-286 


34-352 

34-356 

34-358 

34-360 

34-369 

34-371 


34-419 

34-421 

34-427 

34-483 

34-485 

34-487 

RMER10 

7-0# 

13-F48* 

13-603* 

24-139 



RMER2 

4-713# 






RMER2I 

7-0# 

13— =91 

1 3— >56 

13-729 

13-778 

13-A27 


13-B65 

13-C98 

13-C99 

13-D06 

13-D64 

13-D65 


16-83 

16-224 

16-231 

24-137 

25-78 

25-196 


28-132 

28-135 

28-184 

28-213 

30-114 

32-31 


32-132 

32-134 

32-171 

32-218 

32-266 

33-103 


34-242 

34-244 

34-254 

34-258 

34-260 

34-270 


35-58 

35-74 

35-88 

35-94 

35-96 

35-98 

RMER20 

7-0# 






RUHR 

4-711# 






RUHR I 

7-0# 






RHHRO 

7-0# 






RMLA 

4-705# 






RMLAI 

7-0# 

59-16 





RNLAO 

7-0# 






RflWtl 

4-706# 

13-E22 

13-E30 

13-E81 

13-E90 


RMHR1I 

7-0# 

30-79 

33-69 

59-17 



RMHR10 

7-0# 

13-E22* 

13-E28* 

1 3— £81 * 

13-E88* 


RMHR2 

4-712# 







26 


13- :48 

1 3— : 93 

1 3-; 51 

13- 

<14 

13-C70 

13-D37 

13-E32 

13- 

E93 

1 3-K66 

13-L47 

16-64 



13-801* 

13-978* 

1 3—; 35* 

13- 

;36 

13-659* 

13-104* 

13-J54* 

13- 

■118* 

17-23 

25-587 

28-50 

34- 

•174 

13-630 

15-122 

15-180 

16-115 

25-354 

25-654 

28-96 

28- 

■151 

28-211 

28-215 

28-217 

30- 

■124 

32-157 

32-159 

32-169 

32-173 

33-28 

34-88 

34-90 

34-1 1 9 

34-536 

34-538 

34-548 

34- 

■552 

35-76 

35-78 

59-13 




13-B24 

13-648 

13-854 

13-C92 

25-152 

25-179 

25-222 

25-237 

25-682 

25-694 

26-24 

28-30 

31-69 

31-71 

31-72 

31-83 

32-33 

32-35 

32-45 

32-47 

32-238 

32-240 

32-250 

32-252 

34-87 

34-128 

34-131 

34-133 

34-290 

34-292 

34-301 

34-303 

34-373 

34-382 

34-384 

34-386 

34-534 

35-42 

59-13 


13-A32 

13-A33 

13-A52 

13-A57 

13-D72 

13-E53 

13-E58 

13-E59 

25-252 

25-428 

25-459 

26-27 

32-92 

32-99 

32-101 

32-103 

34-43 

34-111 

34-114 

34-116 

34-272 

34-274 

34-288 

34-470 

35-108 

35-110 

35-112 

59-13 


SEO 031? 


13-<77 

13-=39 

1 3— =71 

1 3— >37 

13-F56 

13-612 

13-674 

1 3— Ml 7 

13-.-88* 

1 3— <08* 

13-<50* 

1 3— <71 * 

13-128 

13-L81* 

13-L82 

16-56* 

16-149 

24-104 

25-34 

25-36 

28-160 

28-167 

28-171 

28-173 

31-23 

31-25 

31-27 

31-37 

32-174 

32-185 

32-187 

32-189 

34-256 

34-322 

34-457 

34-459 

34-554 

35-34 

35-40 

35-44 


13-C94 

13-D58 

13-060 

16-221 

25-280 

25-357 

25-333 

25-398 

28-37 

28-71 

28-145 

28-148 

31-85 

31-86 

31-97 

31-99 

32-49 

32-61 

32-63 

32-65 

32-254 

32-264 

32-268 

32-270 

34-135 

34-145 

34-147 

34-149 

34-305 

34-315 

34-317 

34-318 

34-395 

34-397 

34-399 

34-417 

13-835 

13-840 

13-841 

13-860 

13-F13 

13-F18 

13-F20 

15-55 

28-32 

28-90 

28-93 

28-104 

32-116 

32-118 

32-120 

32-130 

34-207 

34-211 

34-236 

34-240 

34-472 

34-474 

34-517 

34-550 



SEQ 03 M 


13-352 

13-392 

13-436 

13-527 

13-570 

13-614 

13-675 

13-.-9 2 

13— ; 55 

1 3-<1 5 

l3-<76 

1 3— =43 

1 3— =72 

13->36 

13-036 

13-E35 

13-E92 

13-F57 

13-611 

13-678 

13-H18 

13-148 

16-66 

21-51 





25-623 

34-348 

34-424 

59-14 

59-16 



13-974* 

13-.-17 

13-;19* 

1 3—; 40* 

1 3— =1 7* 

13->66 

13- >69* 

13-F39* 

13-663* 

13-109* 

13-J58* 

13-L09 

13-L11* 

13-L21* 

17-37 

25-599 

25-626 

28-59 

28-63 

34-183 

34-187 

34-128 

34-159 

34-162 






13-253 

13-297 

13-351 

13-394 

13-439 

13-526 

13- 

572 

13-999 

13— r 51 

13-:95 

13-;54 

13-<17 

13-<79 

13- 

=42 

13-C27 

13-C73 

13-039 

13— §34 

13-E95 

13-F59 

13-614 

13-K11 

13-K68 

13-L49 

16-65 





13-511* 

13-565* 

13-659* 

13-713* 

13-804* 

13-857* 

13- 

•981* 

13-A82* 

13-C04* 

13-E07* 

13-F38* 

13-662* 

13-H12* 

13- 

•108* 

17-22 

18-73 

25-552 

25-573 






13-789 

13-968 

13— ;23 

13-=09 

13— >73 

13-796 

13-887 

13— ;43 

13-917 

13-C08 

13-El 1 

13-666 

13-112 

13-J61 

13-637 

13-372 

25-24# 

13-740 

13-014 

13-784 

13-080 

13-885 

13-E64 

13-960 

13-F24 

13-.71 

13-F86 

13-;15 

13-C42 

28-107 

34-211 

28-111 

34-213 

28-122 

34-225 

28-184 

34-517 

30-115 

35-74 

32-92 

35-89 

32-116 

35-108 


i 











SEO 0320 


13-979 

13-.-37 

13-= 16 

1 3— >68 

13-811 

13-C02 

1 3— €05 

13-403 

13-;66 

13-C39 

13-K23 

13-448 

13-;96 

13-C82 

13-K35 

13-538 

1 3-<24 
13-D48 
13-K83 

13-581 
13— <58 
13-E44 
13-K96 

13-626 

13-<86 

13-F04 

13-L59 

13-686 

13-=53 

13-F79 

15-136 

13-729 
1 3-=83 
13-035 
15-194 


25-540 


13-381 
13— ;31 
13-E77 

13-428 

1 3—; 86 
13-F44 

13-504 

1 3— <48 
13-F99 

13-559 

13-=33 

13-655 

13-605 
13— >1 2 
13-H07 

13-652 

1 3->98 
13-H53 

13-707 

13-750 

13-100 

13-322 

13-J43 

13-496 

13-L15 

13- 644 

14- 11 

13- 789 

14- 13* 

13- 968 

14- 17 

13- ;23 

14- ^7* 

13-=09 

27-24 

10-80 

11-19 

11-86 

10-82 

11-20 

11-87 

10- 96 

11- 28 
11-92 

10-102 

11-32 

11-100 

10- 105 

11- 34 

12- 3 

10- 109 

11- 40 

12- 6 

10- 117 

11- 44 

12- 7 


j 


L 
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12-14 

12-25 

12-30 

12-60 

12-61 

13-52 


13-C08 

13-E11 

13-G66 

13-112 

13-J61 

13-L26 


42-1 

43-20 

43-21 

43-31 

43-32 

43-38 


43-126 

43-144 

43-146 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

TYPOC 

10-8 

11-33 

11-47 

43-138 

44-1 

46-1# 

TYPON 

46-1# 






TYPOS 

10-45 

10-56 

10-81 

12-16 

12-62 

43-22 

UO 

4-752# 






U1 

4-752# 






U2 

4-752# 






UNS 

4-574# 

13-F48 

13-G03 

30-70 

31-51 

31-55 

UNTMSK 

4-756# 

24-48 

24-50 




UNTOFF 

10-109 

49-31# 





UNTON 

10-120 

49-32# 





UPE 

4-739# 

25-266 





USE 

4-695# 

13-A06 

13-B14 

17-29 



USRFIL 

16-279 

16-282 

16-333 

61-12# 



VV 

4-568# 

15-122 

16-115 

25-192 

28-96 

28-161 


32-169 

32-175 

33-29 

34-90 

34-119 

34-509 

wc 

4-638# 

30-80 

33-70 




WCD 

4-525# 

13-291 

13-433 

13-758 

13-904 

13-:89 

UCE 

4-738# 

13-457 

13-463 

13-928 

13-933 

25-165 

UCEHI 

4-763# 






UCELO 

4-764# 






WCF 

4-583# 

4-590 

25-236 

34-483 

34-486 


WCH 

4-526# 






UD 

4-529# 

13-100 

13-247 

13-388 

13-566 

13-714 


13-F40 

13-F53 

1 3— Hi 4 

13-162 



WH 

4-530# 

13-50 

13-197 

13-339 

13-513 

13-661 


13-L24 

13-L44 

34-346 




ULE 

4-577# 

4-590 

25-217 

25-221 

25-234 

25-249 

URL 

4-563# 

25-219 

34-322 




XSIZ 

10-70# 

11-71 

11-101 




XXDP 

7-0# 

10-33* 

10-36* 

10-37 

10-39* 

10-44 

Y 

49-36# 






ZEROS 

13-54 

13-201 

13-343 

13-990 

13-819 

13-J63 


9 


S-30 


13- 199 

14- 20 

43- 43 

44- y 

44-1 

13- 341 

14- 20 

43- 45 

44- 1 
46-1# 

13- 515 

14- 20 

43- 53 

44- 1 

47-1 

13-663 

37-1 

43- 96 

44- 1 

13-808 

11-102 

44-1 

13-988 

39-1 

43- 106 

44- 1 

1 3—; 43 
40-t 

43- 118 

44- 1 

43-39 

43-44 

43-46 

46-1# 




31-59 

32-232 

32-264 

32-269 

34-283 

34-286 

34-291 

28-162 

34-510 

28-211 

34-548 

28-216 

34-553 

31-23 

35-35 

31-26 

35-36 

32-106 

35-56 

32-145 

35-61 

13->33 

50-77 

13-755 

50-78 

13-K86 





13-859 

13— :27 

13-.-45 

1 3— <1 1 

13-873 

13-C66 

13-E09 

13-806 

13-982 

1 3— ;41 

13-815 

13-C06 

13-G64 

13-110 

25-264 

34-283 

34-315 

34-319 

34-327 

50-81 

50-82 

10-55 

10-113 

10-115 






52-38# 


13-817 

42- 1 

43- 124 


32-146 


13-E27 

13-J59 
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SEQ 032 


SSCMRE 

SSCMTM 

SSESCA 

SSNEWT 

SSSET 
SSSETN 
SSSKIP 
.SACT1 
SAPTB 
.SAPTH 
.SAPTY 
.SCATC 
.SCMTA 
.SEOP 
.SERRO 
.SPOUE 
.SRDDE 
.SRDOC 
.IRE AO 
.(SAVE 
•SSCOP 
.(SIZE 
.STRAP 
.STYPB 
.STYPD 
.STYPE 
.STYPO 
•EQUAT 
.HEADE 
.SETUP 
.SURHI 
. SWRLO 
CALCLR 
CALSUB 


5-10# 

5-10# 

6-0 

6-0 

6-0 

6-0 

6-0 









4-492# 

4-492# 

13-D97 

13-2 

13-F29 

13-33 

13-G47 

13-180 

13-H92 

13-322 

13-J43 

13-496 
13— Li 5 

13-644 

13-789 

13-968 

13-;23 

l3-*09 

13— >73 

13-796 

13-687 

46-1 

10-23 

46-1 

10-23# 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1# 

4-492# 

4-484# 
4-484# 
4-484# 
4-484# 
4-480# 
4-481# 
4-481# 
4-481# 
4-483 # 

5- 5 

6- 0 

5-8 

48-1 

5-1 

5-10 

14-20 

42-1 

47-1 

6-0# 












4-482# 

4-482# 
4-482# 
4-483 # 
4-481# 

1 1 1 1 













4-483# 

4-483# 

4-482# 

4-482# 

4-481# 

4-482# 

4-480# 

4-480# 

4-480# 

4-480# 

4-480# 

46-1 

37- 1 

38- 1 

40-1 

39- 1 
4-492 
4-488 
4-785 
4-489 
4-489# 

4-490 












4-192# 

4-206# 

13-41 

13-52 

13-68 

13-71 

13-73 

13-76 

13-80 

13-93 

13-110 

13-113 

13-115 

13-118 

13-122 

13-124 

13-126 

13-139 

13-155 

13-158 

13-160 

13-163 

13-167 

13-169 

13-171 

13-175 

13-188 

13-199 

13-215 

13-218 

13-220 

13-223 

13-227 

13-240 

13-257 

13-260 

13-262 

13-265 

13-269 

13-271 

13-273 

13-286 

13-301 

13-304 

13-306 

13-309 

13-313 

13-315 

13-317 

13-330 

13-341 

13-356 

13-359 

13-361 

13-364 

13-368 

13-381 

13-398 

13-401 

13-403 

13-406 

13-410 

13-412 

13-414 

13-428 

13-443 

13-446 

13-448 

13-451 

13-455 

13-460 

13-488 

13-504 

13-515 

13-533 

13-536 

13-538 

13-541 

13-545 

13-559 

13-576 

13-579 

13-581 

13-584 

13-588 

13-590 

13-592 

13-605 

13-621 

13-624 

13-626 

13-629 

13-633 

13-635 

13-637 

13-639 

13-652 

13-663 

13-681 

13-684 

13-686 

13-689 

13-693 

13-707 

13-724 

13-727 

13-729 

13-732 

13-736 

13-738 

13-740 

13-753 

13-768 

13-771 

13-773 

13-776 

13-780 

13-782 

13-784 

13-797 

13-808 

13-826 

13-829 

13-831 

13-834 

13-838 

13-852 

13-869 

13-872 

13-874 

13-877 

13-881 

13-883 

13-885 

13-899 

i 3-914 

13-917 

13-91? 

13-922 

13-926 

13-930 

13-960 

13-985 

13-988 

13-.-06 

13-.-09 

13-:11 

13-:14 

13—: 18 

i J-:40 

13— :55 

13-:58 

1 3— : 60 

1 3— :63 

13-:47 

13-:69 

1 3— : 71 

13-.-84 

13—: 99 

13-.-02 

13-;04 

13-.07 

13—; 1 1 

'3-; 13 

13-.-15 

13-.-31 

13-;43 

13-;61 

13-;64 

1 3—; 66 

13-;69 

13-.-73 

13-.-86 

13— ; 91 

13—; 94 

13-.-96 

13—; 99 

13— <03 

13-<21 

13— <24 

1 3— <27 

1 3— <31 

1 3— <33 

1 3-<35 

13-<48 

13— <53 

13-<56 

13-<58 

13— <61 

1 3— <65 

13— <83 

13-<86 

13-<89 

13— <93 

1 3-<95 

1 3-<97 

13-<99 

1 3-=33 

13-=48 

13-=51 

13— =53 

13-=56 

13-=60 

13-=78 

13-=81 

13— =83 

13— =86 

13— =95 

13-=97 

13-=99 

1 3— >1 2 

1 3— >16 

1 3— >19 

1 3— >21 

13->24 

13— >28 

13— >43 

13->46 

13— >48 

13— >51 

1 3->60 

1 3— >62 

1 3->64 

1 3->98 

13-716 

13-719 

13-721 

13-724 

13-733 

13-735 

13-737 

13-750 

13-765 

13- >68 

13-770 

13-773 

13-782 

13-784 

13-786 

13-806 

13-817 

13-841 

13-844 

13-846 

13-849 

13-853 

13-866 

13-883 

13-886 

13-888 

13-891 

13-895 

13-A14 

13-A30 

13-A43 

13-A55 

13-A64 

13-A7tS 

13-A93 

13-A96 

13-A98 

13-B01 

13-B05 

13-B22 

13-B3S 

13-B51 

13-B63 

13-872 

13-B97 

13-C08 

13-C34 

13-C37 

15-C39 

13-C42 

13-C46 

13-C59 

13-C77 

13-C80 

13-C82 

13-C85 

13-C89 

13-012 

13-014 

13-027 

13-043 

13-046 

13-048 

13-051 

13-055 

13-078 

13-D80 

13-082 

13-El 1 

13— El 8 

13-E39 

13-E42 

1 3— E4< 

13-E47 

13-E51 

13-E56 

13-E64 

13-E77 

13-E99 

13-F02 

13-F04 

13-F07 

13-F11 

13-F16 

13-F24 
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13-F44 

13-F63 

13-F66 

13-F69 

13-F79 

13-F82 

13-F84 


13-G40 

13-G42 

13-G55 

13-G66 

13-G82 

13-685 

13-687 


13-H36 

13-H3S 

13-H40 

13-H53 

13-H69 

13-H72 

13-H74 


13-130 

13-133 

13-135 

13-138 

13-142 

13-155 

13-172 


13-J17 

13-J20 

13-J22 

13-J25 

13-J29 

13-J31 

13-J33 


13-J89 

13-K02 

13-K14 

13-K20 

13-K23 

13-K30 

13-K33 


13-K80 

13-K83 

13-K91 

13-K94 

13-K96 

13-K99 

13-L03 


13-L61 

13-L65 

13-L67 





COWMEN 

4-492# 







ENDCOM 

4-492# 







ERROR 

4-492# 

13-25 

13-41 

13-52 

13-68 

13-76 

13-80 


13-155 

13-163 

13-167 

13-169 

13-171 

13-175 

13-188 

1 

13-269 

13-271 

13-273 

13-286 

13-301 

13-309 

13-313 


13-381 

13-398 

13-406 

13-410 

13-412 

13-414 

13-428 


13-484 

13-488 

13-504 

13-515 

13-533 

13-541 

13-545 


13-621 

13-629 

13-633 

13-635 

13-657 

13-639 

13-652 


13-736 

13-738 

13-740 

13-753 

13-768 

13-776 

13-780 


13-852 

13-869 

13-877 

13-881 

13-883 

13-885 

13-899 


13-956 

13-960 

13-985 

13-988 

13— : 06 

1 3— : 1 4 

1 3- : 1 8 


1 3- : 99 

13-;07 

13—; 1 1 

13—; 13 

13—; 1 5 

13-.-31 

13-;43 


13-<21 

13— <27 

13— <31 

13-<33 

13-<35 

13-<48 

13-<53 


13-<99 

13-=33 

1 3— =48 

13— =56 

13-=60 

13-= 78 

1 3— =86 


1 3— >43 

13— >51 

13->60 

13->62 

13->64 

13->98 

13-716 


13-782 

13-784 

13-786 

13-906 

13-917 

13-941 

13-949 


13-A30 

13-A35 

13-A43 

13-A47 

13-A55 

13-A59 

13-A64 


13-B43 

13-851 

13-855 

13-863 

13-867 

13-872 

13-897 


13-C89 

13-003 

13-D09 

13-D12 

13-014 

13-027 

13-043 


13-El 1 

13-E18 

13-E22 

13-E39 

13-E47 

13-E51 

13-E56 


13-F16 

13-F21 

13-F24 

13-F44 

13-F48 

13-F63 

13-F69 


13-G24 

13-G31 

13-G38 

13-G40 

13-G42 

13-G55 

13-G66 


13-H38 

13-H40 

13-H53 

13-H69 

13-H77 

13-H81 

13-H83 


13-155 

13-172 

13-180 

13-184 

13-186 

13-188 

13-J01 


13-J61 

13-J77 

13-J85 

13-J89 

13-K02 

13-K14 

13-K20 


13-K80 

13-K91 

13-K99 

13-L03 

13-L05 

13-L07 

13-L26 

ESCAPE 

4-492# 







6ETPRI 

4-492# 







6ETREG 

4-169# 

13-470 

13-941 





GETSWR 

4-492# 

10-28 

10-28# 





MSG 

4-8# 







MULT 

4-492# 







NEWTST 

4-492# 

13-2 

13-33 

13-180 

13-322 

13-496 

13-644 


13-097 

13-F29 

13-G47 

13-H92 

13-J43 

13-L15 


NWTST 

4-36# 

13-2 

13-33 

13-180 

13-322 

13-496 

13-644 


13-097 

13-F29 

13-G47 

13-H92 

13-J43 

13-L15 


POP 

4-492# 

13-17 

13-20 

13-24 

16-70 

16-2% 

16-426 


21-63 

22-18 

23-31 

23-44 

24-145 

24-149 

25-127 


38-1 

45-1 

47-1 

47-1 

48-1 

48-1 


PUSH 

4-492# 

13-5 

13-14 

16-46 

16-289 

16-305 

16-444 


22-3 

23-9 

23-38 

24-141 

25-124 

25-440 

27-20 


47-1 

47-1 

48-1 

48-1 

48-1 



PUTREG 

4-450# 

13-E22 

13-E81 

13-F48 

13-G03 



REPORT 

4-492# 







RGBFMC 

4-69# 

7-0 

7-0 





SETPRI 

4-492# 

12-50 

41-5 

41-9 

44-1 



SETTRA 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

SETUP 

4-492# 

10-23 







SEQ 0323 


13— F 86 

13-F99 

13-G18 

13-G21 

13-G24 

13-G35 

15-G38 

13-G90 

13-G94 

13-H07 

13-H24 

13-H27 

13-H29 

13-H32 

13-H77 

13-H81 

13-H83 

13-H85 

13-H87 

13-100 

13-112 

13-175 

13-177 

13-180 

13-184 

13-186 

13-188 

13-J01 

13-J35 

13-J50 

13-J61 

13-J77 

13-J80 

13-J82 

13-J85 

13-K35 

1 3-K38 

13-K42 

13-K44 

13-K46 

13-K58 

13-K71 

13-L05 

13-L07 

13-L26 

13-L40 

13-L54 

13-L57 

13-L59 


13-93 

13-110 

13-118 

13-122 

13-124 

13-126 

13-139 

13-199 

13-215 

13-223 

13-227 

13-240 

13-257 

13-265 

13-315 

13-317 

13*330 

13-341 

13-356 

13-364 

13-368 

13-443 

13-451 

13-455 

13-460 

13-467 

13-470 

13-480 

13-559 

13-576 

13-584 

13-588 

13-590 

13-592 

13-605 

13-663 

13-681 

13-689 

13-693 

13-707 

13-724 

13-732 

13-782 

13-784 

13-797 

13-808 

13*826 

13-834 

13-838 

13-914 

13-922 

13-926 

13-930 

13-937 

13-941 

13-952 

13-:40 

13— : 55 

13— : 63 

1 3— :67 

1 3- : 69 

1 3— : 71 

13-:84 

13—; 61 

13-;69 

13-;73 

13-;S6 

13— ;91 

13-.-99 

1 3-<03 

13— <61 

1 3— <65 

13-<83 

13-<89 

13-<93 

1 3-<95 

13-<97 

13— =95 

1 3-=97 

1 3-=99 

13->12 

13->16 

1 3->24 

1 3->28 

13-724 

13-733 

13-735 

13-737 

13-750 

13-765 

13-773 

13-953 

13-966 

13-983 

13-991 

13-995 

13-A14 

13-A22 

13-A76 

13-A93 

13-801 

13-805 

13-822 

13-830 

13-838 

13-C08 

13-C34 

13-C42 

13-C46 

13-C59 

13-C77 

13-C85 

13-051 

13-055 

13-069 

13-075 

13-078 

13-080 

13-082 

13-E61 

13-E64 

13-E77 

13-E81 

13-E99 

13-F07 

13-F11 

13-F76 

13-F82 

13-F84 

13-F86 

13-F99 

13-603 

13-G18 

13-682 

13-G90 

13-G94 

13-H07 

13-H24 

13-H32 

13-K36 

13-H85 

13-H87 

13-100 

13-112 

13-130 

13-138 

13-142 

13-J17 

13-J25 

13-J29 

13-J31 

13-J33 

13-J35 

13-J50 

13-K30 

13-K38 

13-K42 

13-K44 

13-K46 

13-K58 

13-K71 

13-L40 

13-L54 

13-L61 

13-L65 

13-L67 

41-1 



13-789 

13-968 

13— ;23 

13-=09 

13->73 

13-796 

13-887 

13-789 

13-968 

13— ;23 

13-=09 

13->73 

13-796 

13-887 

16-477 

25-443 

17-69 

27-51 

18-95 

29-25 

19-25 

30-58 

19-26 

33-58 

19-27 

33-59 

20-70 

36-1 

17-20 

29-12 

18-17 

30-52 

19-10 

33-51 

19-11 

33-52 

19-12 

36-1 

20-35 

38-1 

21-29 

45-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1 

46-1# 


j 


SEQ 032^ 
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SKIP 

4-492# 







SLASH 

4-492# 







STARS 

4-492# 

5-5 

5-8 

5-8 

5-8 

j-0 

6-0 


13-133 

12-180 

13-150 

13-182 

13-234 

13-280 

13-322 


13-552 

13-599 

13-644 

13-644 

13-646 

13-700 

13-747 


13-970 

1 3— : 33 

1 3- : 78 

13-;23 

13-;23 

1 3— ; 2 5 

1 3—; 80 


1 3->75 

13-744 

13-796 

13-796 

13-798 

13-960 

13-A70 


13-D99 

13-E71 

13-F29 

13-F29 

13-F31 

13-F93 

13-G47 


13-149 

13-195 

13-J43 

13-J45 

13-J45 

13-J98 

13-K53 


15-138 

15-160 

15-196 

16-212 

16-298 

16-302 

25-115 


41-1 

42-1 

44-1 

44-1 

44-1 

44-1 

44-1 

SWRSU 

4-492# 

10-23 

10-23# 





TAGS 

4-103# 

6-0 






TRMTRP 

46-1# 







TYPBIN 

4-492# 







TYPDEC 

4-492# 

14-20 

14-20 





TYPNAM 

4-480# 

4-492# 

10-28 





TYPNUM 

4-492# 







TYPOCS 

4-492# 

10-81 

12-16 

12-62 

13-22 

43-39 

43-44 

TYPOCT 

4-492# 

11-33 

4/-1 





TYPTXT 

4-492# 

10-6 

10-42 

10-53 

10-59 

12-30 

14-20 

XPER 

4-12# 

8-3 

8-6 

8-9 

8-12 

8-15 

8-18 


8-42 

8-45 

8-48 

8-51 

8-54 

8-57 

8-60 


3-84 

8-87 

8-9C 

8-93 

8-96 

8-99 

8-102 


8-126 

8-130 

8-133 

8-136 

8-139 

8-142 

8-146 


8-172 

8-175 

8-178 

8-182 

8-185 

8-188 

8-191 


8-215 

8-218 

8-221 

8-224 

8-227 

8-230 

8-233 


8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 


8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 


8-341 

8-344 

8-347 

8-351 

8-354 

8-357 

8-360 


8-384 

8-33 7 

8-390 

8-393 

8-396 

8-399 

8-402 


8-426 

8-429 

8-432 

8-435 

8-438 

8-441 

8-444 


8-468 

8-471 

8-474 

8-477 

8-480 

8-483 

8-486 


8-510 

8-513 

8-516 

8-519 

8-522 

8-525 

8-528 


8-552 

8-556 

8-559 

8-563 

8-566 

S-569 

8-573 


8-603 

8-606 

8-609 

8-612 

8-615 

8-618 

8-621 


8-645 

8-648 

8-651 

8-654 

8-657 

8-660 

8—663 


8-687 

8-690 

8-693 

8-696 

8-699 

8-702 

8-705 


6-0 

13-2 

13-2 

13-33 

13-33 

13-35 

13-87 

13-322 

13-324 

13-375 

13-420 

13-496 

13-496 

13-498 

13-789 

13-789 

13-791 

13-845 

13-891 

13-968 

13-968 

l3-<42 

13-=09 

1 3-=09 

13— =1 1 

13->76 

1 3->73 

13->73 

13-887 

13-887 

13*889 

13-C53 

13-D21 

13-097 

13-097 

13-G47 

13-G49 

13-H01 

13-H47 

13-H92 

1 3-ri92 

13-H94 

1 3— Li 5 

13-L15 

14-20 

15-57 

15- 70 

15-84 

15-107 

25-529 

25-531 

36-1 

37-1 

38-1 

39-1 

40-1 

45-1 

46-1 

47-1 

47-1 

48-1 



43-46 







14-20 







8-21 

8-24 

8-27 

8-30 

8-33 

8-36 

8-39 

8-63 

8-66 

8-69 

8-72 

8-75 

8-78 

8-81 

8-105 

8-108 

8-111 

8-114 

8-117 

8-120 

8-123 

8-150 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 

8-194 

8-197 

8-200 

8-203 

8-206 

8-209 

8-212 

8-236 

8-239 

8-242 

8-245 

8-248 

8-251 

8-254 

8-278 

8-281 

8-284 

8-287 

8-290 

8-293 

8-296 

8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 

8-363 

8-366 

8-369 

8-372 

8-375 

8-378 

8-381 

8-405 

8-408 

8-411 

8-414 

8-417 

8-420 

8-423 

8-447 

8-450 

8-453 

8-456 

8-459 

8-462 

8-465 

8-489 

8-492 

8-495 

8-498 

8-501 

8-504 

8-507 

8-531 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 

8-577 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 

8-624 

8»6 27 

8-630 

8-633 

8-636 

8-639 

8-642 

8-666 

8-669 

8-672 

8-675 

8-678 

8-681 

8-684 

8-708 

8-711 

8-714 

8-717 

8-720 

8-723 



J 


